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ABSTRACT 


A previously  developed  man-machine  model  which  is  capable  of  simulating 
closed  man-machine  systems  operated  by  crews  of  from  4 to  20  members  was 
substantially  modified  so  as  to  allow  its  use  for  system  reliability  and  system 
availability  predictive  purposes.  The  resultant  new  model  is  capable  of  generat- 
ing new  system  availability  and  reliability  measures  based  on  human  and  equip- 
ment performance  resulting  from  the  computer  simulation  runs. 

A description  of  the  revised  computer  model  including  the  changes  is  pre- 
sented, together  with  the  model  flowchart  and  user  information. 

The  degree  of  success  in  producing  rational  output  achieved  during  a set  of 
basic  runs  using  the  revised  model  and  program  is  discussed. 
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CHAPTER  I 


INTRODUCTION  AND  BACKGROUND 


General  Over>iew 

The  integration  of  human  reliability  (HR)  and  equipment  reliability  (ER)  data 
into  a single  comprehensive  model  for  predicting  system  reliability  (SR)  has  been 
one  of  the  major  expressed  concerns  of  Navy  system  planners  (Blanchard,  1972). 
Efforts  to  use  currently  available  models,  however,  have  not  met  with  desired  suc- 
cess levels.  An  attempt  was  made,  for  example,  to  include  human  performance 
data  in  the  WSEIAC  (1965)  model,  even  though  an  explicit  basis  was  not  originally 
provided  in  the  model  for  such  consideration.  As  noted  by  Blanchard  (1972)  . . 

attempting  to  force  human  performance  characteristics  relative  to  a particular 
system  design  into  an  available  structure  provided  by  a model  developed  to  ac- 
count for  equipment  consideration  is  extremely  difficult  and  grossly  inadequate.  M 
Similarly,  efforts  to  incorporate  human  performance  data  into  the  GEM  (Orbach, 
1968)  and  RAMA  (Hamilton  & Bennett,  1970)  models  have  not  as  yet  proved  useful. 
Moreover,  even  when  separately  noted,  the  contributions  of  HR  and  ER  to  SR  have 
not  been  quantified  in  an  easily  generalizable  fashion.  The  result  makes  extrapo- 
lations to  new  environments/equipments/personnel  difficult  (Smith  et  al. , 1970). 

This  problem  is  primarily  a result  of  the  absence  of  a clear  and  concise  statement 
defining  the  separate  characteristics  and  properties  relevant  both  to  ER  determina- 
tion and  HR  determination  and  the  development  of  a unifying  strategy  for  incorporat- 
ing them  into  an  SR  framework.  While  a number  of  equipment  reliability  models 
are  currently  available  (e.  g. , MIL-STD-756),  there  has  only  been  limited  work  in 
human  reliability  modeling  (Siegel  & Federman,  1974,  Federman  & Siegel,  1973). 


Prior  NAVSHIPS  Sponsored  Efforts 

Over  the  past  several  years.  Applied  Psychological  Services  has  been  engaged 
in  developing,  testing,  and  demonstrating  a family  of  man-machine  computer  simula- 
tion models.  Considerable  emphasis  has  been  given  in  these  models  to  the  HR  as- 
pects. The  earliest  model  has  also  been  successful  in  showing  the  utility  of  the  sto- 
chastic simulation  approach  for  predicting  human  reliability  in  the  electronic  equip- 
ment maintenance  context  (Siegel  & Federman,  1974).  The  results  of  this  prior  work 
point  out  and  support  the  feasibility  of  the  general  approach  for  HR  prediction  pur- 
poses. On  the  basis  of  this  prior  effort  it  seemed  that  a similar  approach  to  the  pre- 
diction of  HR  in  all  contexts  (electrical,  electromechanical,  mechanical,  and  elec- 
tronic maintenance,  as  well  as  equipment  operation)  offered  considerable  promise. 

However,  the  stochastic  simulation  model  employed  previously  for  HR  predic- 
tion is  limited  to  simulation  of  tasks  performed  by  one  or  two  operators  and  is  fur- 
ther limited  because  it  is  not  easily  adaptable  for  total  system  simulation  purposes. 
Accordingly,  a model  was  sought  which  would  allow  simulation  of  the  actions  and  be- 
haviors of  larger  groups  of  men  and  total  equipment  systems.  A further  prerequisite 


in  such  a model  is  the  ability  to  accept  and  interact  with  ER  data  so  as  to  yield  an  in- 
tegrated SR  numeric.  Quite  obviously,  the  output  should  be  analyzable  into  the  con- 
tributors to  high  or  low  SR. 

A second  Applied  Psychological  Services’  large  crew  model  was  also  consid- 
ered. This  model  simulated  psychosocial  and  performance  interactions  for  groups 
of  operators  selected  from  crews  of  up  to  90  men.  Predictions  made  by  the  model, 
mostly  based  on  HR  considerations,  include  system  effectiveness,  crew  morale  and 
cohesiveness,  operator  orientation,  sickness,  and  proficiency.  In  this  model,  each 
day  of  a multiday  mission  is  simulated  to  yield  crew-mission  evaluation. 

However,  work  with  this  model  indicated  that  it  was  not  appropriate  for  inter- 
mediate size  crews,  because  as  crew  size  decreases,  so  does  group  size,  mitigating 
the  applicability  of  model  logic  based  on  HR  group  theoretic  concepts. 

Another  model  developed  and  validated  at  Applied  Psychological  Services  un- 
der Office  of  Naval  Research  sponsorship  was  considered.  This  model,  called  the 
intermediate  size  model  (ISM),  has  been  fully  described  elsewhere  (Siegel,  Lautman, 

& Wolf,  1972;  Siegel,  Wolf,  & Cosentino,  1971;  Siegel,  Wolf,  & Fischl,  1969).  Ex- 
amples of  variables  included  in  the  model  are;  crewman  proficiency,  crew  morale, 
level  of  aspiration,  fatigue,  and  stress. 

The  ISM  simulates  the  acts  and  behaviors  of  individuals  and/or  groups  of  per- 
sons as  they  perform  the  tasks  required  for  the  operation  of  a man-machine  system. 
While  the  model  can  also  simulate  tasks  performed  by  a smaller  number  of  persons, 
its  primary  advantage  is  its  ability  to  simulate  teams  of  4 to  20  mean.  As  such,  it 
complements  the  one  man  - two  man  model  (Siegel  & Wolf,  1962;  1969)  and  the  large 
size  crew  models  which  had  been  previously  developed  and  validated  at  Applied  Psy- 
chological Services. 

As  in  the  large  crew  model,  the  approach  to  the  problem  of  crew  simulation  in 
the  ISM  is  through  the  formulation  of  a representation  which  simulates  group  activity 
and  which  yields  operational  (workload)  measures,  as  well  as  measures  of  man-ma- 
chine system  performance  efficiency.  Because  the  model  is  to  be  used  in  simulating 
difficult  and  untried  missions,  in  which  the  operators’  physical  and  mental  limitations 
may  plan  an  important  part,  original  emphasis  in  ISM  development  was  placed  on  hu- 
man or  operator-oriented  variables.  Nevertheless,  the  more  ordinary  operational 
variables  (the  amount  of  time  worked  by  operators,  status  of  supplies,  etc.  ) are  also 
included.  It  has  been  found  helpful  to  consider  the  separation  of  the  principal  model 
variables  into  these  two  categories:  psychological  or  operator  oriented  variables,  and 
operational  variables.  Examples  of  psychological  variables  are  competence,  charac- 
teristic work  pace,  physical  capability,  aspiration  level,  stress  tolerance,  and  state 
of  fatigue  of  the  operator.  Examples  of  operational  variables  simulated  are  level  of 
consumables,  performance  time  allowances,  task  essentiality,  and  extra  work  re- 
quirements (overtime). 
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In  all  of  these  models,  an  analysis  of  the  task  or  mission  to  be  simulated  is 
required  prior  to  simulation.  This  analysis  provides  input  data  to  the  computer. 
These  data,  together  with  information  on  equipment,  personnel,  emergencies,  and 
the  like  are  prepared  for  computer  processing  in  accordance  with  a program  which 
implements  the  model’s  logic.  Under  program  control,  the  computer  starts  at  mis- 
sion time  zero  and  simulates  the  crew’s  performance  of  each  unit  of  work  or  occur- 
rence during  the  mission. 

To  date,  it  appears  that  the  attempt  to  include  human  behavioral  and  social 
interactive  variables  in  determining  system  effectiveness  has  been  limited  to  the  ef- 
forts of  Applied  Psychological  Services.  No  other  model  currently  available  attempts 
to  account  for  and  predict  human  behavior  in  as  detailed  and  mathematically  explicit  a 
fashion.  This  has  been  true  even  though  it  has  been  estimated  (Blanchard,  1972)  that 
over  a 20  year  system  life  cycle,  80  per  cent  of  the  cost  in  that  period  can  be  assign- 
ed to  personnel.  It  would  appear,  then,  that  the  need  for  SR  models  which  include 
personnel  related  variables  is  apparent  and  that  the  ISM  provides  such  a framework. 
Furthermore,  the  logic  of  the  ISM  facilitates  the  extraction  of  both  equipment  related 
and  human  related  factors  as  they  are  involved  in  system  performance  effective- 
ness. 


Additionally,  it  was  determined  that  the  ISM  could  be  modified  so  as  to  satis- 
fy each  of  a number  of  characteristics  and  properties  required  in  a system  reliabil- 
ity oriented  model. 

The  present  report  describes  the  entire  model  including  these  modifications 
and  as  such  is  self  contained.  It  also  presents  the  extent  of  success  this  resultant  mod- 
el has  demonstrated  in  initial  model  testing  simulation  runs. 

The  approach  adopted  was  to  take  the  ISM,  which  is  principally  HR  oriented, 
and  to  augment  its  basic  capabilities  with  additional  features  such  as: 

• operator  induced  equipment  failures 

• motion  sickness  and  its  effects 

• equipment  performance  measures 

• shift  simulation  capability 

• increased  tracking  of  uses  of  consumables  including 

spare  parts 

• enhanced  summarization  so  as  to  yield  measures  of 

equipment,  human,  and  system  reliability 

• simulation  of  a related  group  of  events,  called  a ’’family,  ” 

to  yield  increased  simulation  detail 

• generalization  of  model  and  extension  of  limits 

• consideration  of  equipment  reliability  by  four  major 

equipment  types 

• modification  of  equipment  repair  time  calculation 

• degradation  of  performance  adequacy  on  emergency  and  on 

repair  events  when  such  events  take  longer  than  a target 
time  to  complete 


3 


The  ISM,  as  modified  for  consideration  of  ER,  HR,  and  SR  determination, 
allows  answering  questions  relative  to  a specific  system  such  as: 

• What  is  its  ER? 

• What  is  its  HR  ? 

• Which  components  of  ER  contribute  most  to  unreliability? 

• Which  components  of  HR  contribute  most  to  unreliability? 

• What  changes  in  equipment  will  lead  to  an  increase  in  ER? 

• What  personnel  changes  will  increase  HR? 

• What  behavioral  variables  contribute  most  to  HR? 

• What  part  does  ER  and  HR,  respectively,  contribute  to  SR? 

• What  system  design  changes  will  best  contribute  to  an  in- 

crease  in  reliability? 

• How  does  crew  proficiency  affect  HR?  SR? 

• What  are  the  effects  of  such  items  as  motion  sickness, 

fatigue,  morale,  level  of  aspirations,  etc.  , on  HR?  on  SR? 


Goals 

The  balance  of  this  chapter  contains  a description  of  the  various  goals  set  for 
the  enhancement  work  in  terms  of  features  and  characteristics  required  of  the  result- 
ing model.  General  descriptions  are  also  included  of  the  approach  taken.  Specific  in- 
formation on  model  logic  changes,  and  their  impact  on  the  ISM  computer  program  are 
presented  in  Chapter  II. 

Numerical  Estimate  of  Reliability 

Perhaps  the  most  critical  requirements  of  a HR  model  is  the  ability  to  provide 
a numeric  defining  HR  in  a manner  which  can  be  compounded  with  ER  data.  This  com- 
pounding should  result  in  a summary  numeric  defining  the  total  SR.  The  importance  * 
of  this  property  was  noted  by  Blanchard  (1972),  who  summarized  the  statements  of  his 
panel  of  model  users  as  follows:  nThere  was  a concensus  (sic)  on  the  desirability  of  in- 
tegrating, incorporating,  or  in  some  way  combining  human  reliability  models  with 
equipment  reliability  models"  and  ".  . . attention  should  be  devoted  to  the  statistical 
compatibility  of  human  error  rate  data  and  equipment  failure  rate  data  which  might 
in  some  way  be  combined  to  provide  an  overall  output  reliability  index.  " 

Accordingly,  ISM  was  modified  so  as  to  allow  separate  summary  numerics  re- 
flecting both  the  reliability  of:  (1)  equipment  (and  its  "performance'1  during  the  simu- 
lation) and  (2)  humans  and  their  performance.  These  numerics  are  based  on  a com- 
mon metric  and,  as  such,  may  be  compounded  to  give  an  overall  estimate  of  SR.  The 
separate  identification  of  the  two  reliability  numerics  allows  the  quantification  of  the 
contribution  to  SR  of  the  two  major  system  components.  The  results,  accordingly, 
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allow  identification  of  the  component  which  might  be  most  advantageously  modified  so 
as  to  provide  the  greatest  improvement  in  overall  SR. 


Characteristics  of  the  iNumeric 

In  order  to  arrive  at  an  overall  estimate  for  ER,  traditionally,  single  compo- 
nent reliabilities  are  expressed  probabilistically  and  are  compounded.  An  an  analo- 
gous fashion,  it  has  been  suggested  that  HR  be  generally  conceived  as  being  a compos- 
ite index.  Meister  (1970),  for  example,  noted  that  ".  . . since  the  reliability  prediction 
(ER)  is  formulated  in  probabilistic  terms,  the  HR  technique  must  be  formulated  in  com- 
parable terms.  " Meister  also  observed  that  ".  . . it  will  be  necessary  to  deal  with  the 
likelihood  of  events  occurring  over  a series  of  performances.  " Somewhat  more  gen- 
erally, it  seems  necessary  to  deal  with  the  set  of  events  which  constitute  performance 
as  well  as  over  a series  of  performances  of  the  set.  This  approach  possesses  the  ad- 
vantage of  identifying  the  specific  components  contributing  to  unreliability  which  de- 
grade overall  HR.  System  designers,  among  others,  would  be  able  to  investigate  on 
an  "event-by-event"  basis  where  major  improvements  either  in  the  man-machine  in- 
terface itself  or  in  the  introduction  of  some  form  of  performance  aiding  would  best 
augment  HR  and,  consequently,  SR.  By  an  "event"  in  the  HR  sense  is  meant  a com- 
ponent of  the  overall  task  such  as  "detection"  in  a sonar  attack  sequence. 

As  a further  requirement  within  this  approach,  Blanchard  (1972) noted  in 
his  survey  that  ".  . . most  respondents  indicated  that.  . . use  of  single-value  perform- 
ance estimates  including  HR  indices.  . . would  be  inadequate  for  their  needs.  " This 
conclusion  was  reached  from  an  expressed  desire  among  his  respondents  for  a quan- 
tification of  the  distributions  (as  well  as  tolerance  limits)  surrounding  the  perform- 
ance estimates.  This  desire  is  analogous  to  the  synthesizing  of  distributions  from 
component  test  data  as  involved  in  a determination  of  system  reliability,  as  described 
by  Fagen  and  Wilson  (undated).  Similar  data  for  the  components,  if  not  for  the  whole 
task,  in  an  HR  determination  would  also  be  desirable. 

Accordingly,  it  seems  that  the  underlying  components  of  HR  in  a given  system 
should  be  identified  and  measured  on  a common  metric  (probability  of  success),  al- 
lowing both  a measure  of  overall  HR  as  well  as  the  identification  of  the  components  of 
the  final  index.  Distributions  of  values  analogous  to  MTBF  distributions  will  also  be 
obtained,  wherever  possible.  Where  distributions  are  available,  compounding  might 
require  convolution  of  mathematical  functions. 


Level  of  Specificity 

One  of  the  key  issues  in  HR  determination  is  the  level  of  specificity  required. 
Balaban  and  Costello  (1964)  concluded  that  "There  can  ...  be  no  general  criterion  for 
the  level  at  which  a system  should  be  defined;  nor  can  general  ground  rules  be  formu- 
lated. Each  assessment  must  dictate  its  own  criteria.  " Likewise,  no  uniform  agree- 
ment among  model  users  on  this  important  question  was  found  by  Blanchard  (1972). 
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Dunnette  et  al.  (1972),  in  discussing  the  issues  involved  in  the  development  of 
a Naval  Personnel  Status  Index  (NPSI)  raised  a problem  somewhat  similar  to  that  con- 
sidered he  re- -the  level  of  specificity  necessary  for  the  development  of  an  index  of 
HR.  They  suggested  that  the  basic  data  system  necessary  for  the  development  of  their 
NPSI  should  focus  on  tasks  or  functions  as  the  primary  unit  of  analysis.  In  view  of  the 
difficult  effort  involved  in  the  development  of  a data  store  type  of  system  and  possible 
user  resistance  to  its  employment  (Blanchard,  1972),  the  HR  metric  focused  in  its  lev- 
el of  analysis  on  tasks  and/or  functions.  In  ER  determination,  the  level  of  specificity 
was  selected  at  the  equipment  level.  The  ER  for  maintenance  of  all  types  of  equipment 
(electrical,  electromechanical,  mechanical  and  electronic),  as  well  as  for  equipment 
operation,  was  also  provided  for. 


Sensitivity  and  Ho  1)  u sine  s s 

While  it  is  desirable  that  both  the  overall  ER  and  HR  indices  of  the  model  be 
sensitive  to  shifts  in  their  respective  components,  subtle  shifts  should  give  rise  to 
small  or  no  changes  in  the  major  index.  In  general,  each  index  should  be  robust  to 
minor  day-to-day  fluctuation  in  magnitude  and/or  direction  of  their  components.  Ad- 
ditionally, changes  in  the  index  should  not  be  time  dependent  in  and  of  itself  (Bryan, 
1973). 


Model  H e 1 i a hi  1 i l y , Validity,  and  G e n e r a 1 i t y 

The  first  requirement  of  any  model  is  that  it  be  reliable;  that  is,  its  predic- 
tions must  be  stable.  With  stochastic  models,  this  stability  is  reflected  in  the  dis- 
tribution of  obtained  values  being  consistent  over  different  model  runs.  Following 
the  establishment  of  model  reliability,  model  validity  can  then  be  ascertained.  Valid- 
ity is  defined  as  the  demonstration  that  a model  is  measuring  what  it  purports  to  meas- 
ure. With  stochastic  models,  predictive  validity  can  be  demonstrated  when  the  dis- 
tribution of  model  derived  values  reflect  the  expected  (actual)  distribution  to  within  ac- 
ceptable levels  of  agreement.  Expected  distributions  can  be  obtained  from  historical 
records,  theoretical  derivations,  etc.  Since  both  reliability  and  validity  are  quanti- 
fiable constructs,  it  is  necessary  to  define  a model1  s reliability  or  validity  in  a statis- 
tical sense..  The  issue  to  be  considered  is  one  of  more  or  less  reliable  and/or  valid 
rather  than  a simple  yes/no  dichotomous  decision.  Validity,  in  the  form  of  success 
or  failure  of  performance,  however,  must  be  clearly  stated  (Meister,  1970). 

The  validity  of  a model  is  a function  of  its  generality.  As  generality  increases, 
validity  decreases  for  any  given  situation.  A balance  between  validity  and  generality 
must  be  forged  in  most  stochastic  model  development  efforts. 
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Other  Goals  Es t abl i sh e d 

In  addition  to  the  properties  and  characteristics  noted  above,  other  features 
mentioned  by  others  were  established  as  desirable  objectives  in  enhancing  model  util- 
ity. First,  a model  should  be  easily  utilized  by  nonspecialists  (Meister,  1970).  In- 
put requirements  and  outputs  should  be  as  simple  and  nontechnical  as  possible,  but 
experience  has  shown  that  models  which  tend  to  require  a great  deal  of  sophistication 
on  the  part  of  the  user  have  not  received  wide  application.  Similarly,  model  input 
requirements  (e.  g. , formats)  should  be  set  up  in  a manner  that  is  compatible  with 
both  typical  engineering  and  human  factors  analyses.  To  the  extent  that  a model  ex- 
hibits parallel  structure  in  its  requirements  for  engineering  and  human  input  data, 
the  less  complicated  will  be  the  input  data  task  requirements. 

To  the  extent  possible,  a model  should  make  use  of  available  data  or  data 
which  can  be  developed  from  usually  available  data  via  transformations.  Once  again, 
the  less  the  burden  on  the  model  user,  the  greater  is  the  expected  use  of  a model. 

Additionally,  a goal  was  established  to  develop  a model  general  enough  to  be 
applicable  during  system  development,  as  well  as  during  final  system  performance 
assessment  (Siegel,  1973  ; Leuba,  1968;  Meister,  1970).  This  use  of  a model  will 
probably  be  critical  in  evaluating  overall  utility.  As  Blanchard  (1972)  has  noted,  one 
of  the  most  frequent  problems  facing  Navy  planners  is  deciding  between  two  (or  more) 
alternative  systems  while  the  systems  are  in  early  planning  stages.  The  model  should 
allow  planners  in  the  early  phases  of  system  development  to  compare  relative  relia- 
bility or  values  of  some  similar  effectiveness  measure  for  competing  systems. 

Finally,  a model  should  include  consideration  of  qualitative  and  quantitative 
manning  requirements  so  as  to  allow  testing  of  expected  performance  levels  of  crews 
of  different  skills  and  proficiencies  within  skills. 

Fleishman  et  al.  (1973)  have  observed  that  "The  parallel  specification  of  the 
elements  contributing  to  human  reliability  in  a manner  analogous  to  that  performed 
for  machine  components  by  engineers  is  a necessary  prerequisite  for  predicting  over- 
all system  reliability.  11  The  adaptation  of  the  ISM  is  designed  to  determine  the  ER 
and  HR  components  of  SR,  as  well  as  SR.  This  approach  clearly  follows  that  speci- 
fication, as  development  of  the  ER  and  HR  numerics,  involves  determination  of  as- 
pects, properties,  and  characteristics  of  each.  It  also  involves  determination  of  how 
these  can  be  dealt  with  in  a parallel  manner  and  their  final  integration  into  predicting 
SR  without  violating  the  typical  assumptions  underlying  each. 

Further  Relationships  Among  the  APS  Models  and  Related  Efforts 

One  question  which  might  be  raised  is  that  of  the  relationships  or  continuity  of 
variables  from  one  model  to  another  in  the  series  of  three  Applied  Psychological  Serv- 
ices’ models  described.  In  an  attempt  to  respond  to  this,  and  to  indicate  the  relation- 
ship of  the  variables  in  the  ISM  to  the  others,  the  following  summarization  presents 
the  principal  variables,  functions,  or  concepts  of  each  of  the  three  models. 

Although  no  specific  experiments  have  been  performed  to  determine  the  con- 
tinuity of  predictions  made  by  the  three  models  due  to  their  similarity,  it  is  expected 
that  reasonable  output  overlap  and  trend  similarity  would  result  if  the  same  mission 
could  be  simulated  on  the  different  model. 
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Small  Model 

Intermediate  Model 

Larqe  Group  Model 

Quantity 

1 or  2 men 

3-20  men 

10-99  i..en 

groups 

groups 

group  leader 

crew  size  increment 

Categories/ 

primary/secondary  specialties 

p 

types 

10  personnel  specialties  and 

30  personnel  specialties  and 

cross  training 

cross  training 

E 

command  echelon 

ranks/rates  6 promotion 

R 

Goals 

goal  aspiration 

aspiration 

proficiency  deviation 

leaders  expectation 

leaders  expectation 

S 

performance  adequacy 

0 

Physical 

physical  workload 

confinement 

Attributes 

motion  sickness 

N 

hazard  (safety  index) 
sleep 

N 

physical  incapability  (sickness) 

sickness 

physical  workload 

.L 

Performance 

stress  and  stress 

competence 

prof iciency 

L 

Attributes 

thresholds 

fatigue 

orientation 

cohes iveness 

pace 

morale  and  morale  thresholds 

individuality  (speed) 

stress  and  stress  threshold 

cohesiveness 

factor 

mental  load 

unmanned  station  hours 

unmanned  station  hours 

M 

Composition 

1-300  tasks 

200  events  per  day  of  300  types 

1-200  action  units  per  day 

Duration 

minutes-hours 

hours  to  30  days 

to  30  days 

I 

mission  time  limit 

shifts 

shifts 

S 

Environment 

sea  state 

environmental  efficiency 

S 

Elements 

essentiality 

essentiality 

essentiality 

(tasks) 

types  (joint. 

types  (scheduled,  emergency,  repair ) 

types  (normal,  training , difficult) 

I 

equipment,  decision, 
cyclic ) 

precedence  (time) 

0 

precedence  (task  and 

precedence  (task  and  time 

time) 

N 

execution  time 

performance  time 

performance  time 

success/fai lure 

fixed  and  variable  event  times 

determination 

waiting, idling 

fixed  and  variable  event  times 

carryover  if  incomplete 

success  probability 

touch  up  or  repeat 

touch  up  or  repeat 

time  remaining 

completion  time  limit 

completion  time  limit 

Quantity 

E 

Q Capability  equipment  tasks 

U 

I 

P Performance/ 

M Status 
E 
N 
T 


30  types 

failure  and  generation  of  repairs 
operator  initiated  failures 

failure  rates 
up  time 
down  time 
performance  level 
consumables  levels 


35  types  at  20  stations 

failure  and  generation  of  repairs 

failure  rates 
communications 


Mission  Ef- 

mission success 

system  reliability  level 

total  efficiency 

fectiveness 

probability 

0 

w 

performance 

system  performance  level 

U 

repetitions 

equipment  performance  efficiency 

T 

peak  stress  tasks 

system  global  effectiveness  level 

P 

mission  duration 

consumables  balances 

U 

T 

equipment  and  human  MTBF  & MTTR 

Time  Utili- 

tasks failed,  ignored 

hours  worked , ot , unused , repair 

M 

T? 

zation 

average  time  used 

success,  idle,  sleep,  repair 

no.  of  action  units,  repair, 

£j 

A 

waiting  time 

no,  of  events,  success,  fail,  ignore. 

ignored  essential,  nonessential, 

A 

o 

average  time  overrun 

primary,  secondary 

postphoned 

b 

TT 

peak  and  average  stress 

u 

number  of  tasks  and  last 

R 

E 

task  completed 

M 

Personnel 

goal  aspiration 

performance  adequacy 

psychosocial  efficiency 

E 

performance 

physical  and  mental  load 

crew  cohesiveness  index 

N 

average  cohesiveness 

health  and  safety  indices 

total  crew  efficiency 

T 

o 

performance 

sick  days 

S 

crew  orientation 

promotions 

Report 

task,  mission 

event,  day,  mission  iterations. 

action  unit,  day,  mission 

Frequency 

iteration,  and  run 

and  run  summary 

iteration,  and  run  summary 

summary 

Principles  Lending  to  Qu an  I 1 f i c n t i o n of  Variables 


Since  the  ISM  is  an  elaboration  of  an  extant  model  and  its  foundations  have  al- 
ready been  documented,  this  report  will  not  dwell  on  the  mechanics  of  selecting  or 
quantification  of  the  model's  variables.  Siegel,  Wolf,  and  Fischl  (1969)  present  an 
extensive  discussion  on  the  following  variables  within  the  model: 

physical  capability 

competence 

fatigue 

physical  incompatibility 
working  pace 
level  of  aspiration 
psychological  stress 
confidence 

This  prior  work  includes  literature  references  to  studies  considered  pertinent 
and  includes  full  descriptive  and  analytic  logic.  Particularly  significant  relationships 
are  described  and  instances  of  agreements  of  concepts  with  specific  literature  sources 
are  cited. 

Briefly,  the  general  policy  followed  in  the  selection  and  utilization  of  variables 
for  use  in  the  ISM,  as  well  as  the  other  APS  models,  is  summarized  by  the  following: 

1.  from  the  principal  features  of  the  model  and  its  known 
goals,  select  one  or  more  theories/approaches  of 
greatest  importance,  e.  g.  , small  group  theory,  en- 
vironmental considerations,  extent  of  importance  of 
equipment  performance 

2.  with  these  guidelines,  select  specific  variables  on  the 
basis  of  literature  studies,  prior  model  results, 
and/or  best  judgment 

3.  identify  those  factors  on  which  selected  variables 
should  depend,  i.  e.  , the  relationships  among  vari- 
ables 

4.  extract  from  the  literature  the  qualitative  analytical 
expressions  which  link  the  variables  one  to  another, 
fitting  trend  lines  to  known  or  estimated  relation- 
ships 

5.  scale  the  variables  and  expressions  to  achieve  con- 
sistency throughout  the  model 
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CHAPTER  II 


THE  MODEL  AND  THE  VARIABLES  SIMULATED 


Intro  duct  ion 

The  model  makes  provision  for  simulating  characteristics  of  the  individual 
crew  members  of  a system  and  the  equipment  they  operate.  Each  characteristic  is 
altered  as  a function  of  events  that  transpire  during  a simulated  mission,  and  each 
in  turn  exerts  an  influence  on  mission  events.  In  general,  the  HR  oriented  charac- 
teristics subsume  physical  and  mental  performance  factors,  personality  and  motiva- 
tional factors,  learning  and  reinforcement,  and  aspiration  and  leadership. 

A crew  of  4 to  20  men  is  modeled.  The  ER  factors  include  equipment  repairs 
by  type,  sea  state,  intermittent  failures,  up  and  down  time  factors,  and  equipment 
performance  measures.  The  activities  to  be  assigned  to  and  performed  by  the  crew 
are  itemized  into  specific  events  for  each  day  of  a multiday  mission.  This  informa- 
tion, together  with  data  on  average  personnel  performance,  on  equipments  to  be  oper- 
ated, and  on  emergencies  which  may  occur,  are  provided  in  coded  form  to  the  high 
speed  digital  computer.  These  data  are  manipulated  for  each  scheduled  event,  each 
equipment  repair  event  (or  event  family),  and  each  emergency  which  is  encountered. 
The  major  segments  of  the  model  are: 

1.  crew  formation 

identification  of  each  crew  member  and  assignment  of 
specific  capabilities  and  characteristics  to  each  crew 
member 

2.  daily  schedule  generation 

preparation  of  itemized  events  to  be  completed  on  each 
day  of  the  mission 

3.  personnel  assignment 

selection  of  individual  men  to  accomplish  the  work  of 
each  event  with  option  to  use  a shift  assignment  logic 

4.  event  simulation 


calculation  of  conditions  existing  during  each  event  and 
the  determination  of  how  well  and  how  quickly  the  assigned 
men  accomplish  the  work  which  constitutes  the  event 
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5.  personnel  update 

modification  of  the  numerical  status  of  human  and 
equipment  variables  as  a result  of  group  perform- 
ance during  the  event 

6.  results  recording 

selection  and  display  of  the  value  of  key  variables 
and  summarized  conditions  as  desired  (i.  e.  , for 
each  event,  each  day,  each  mission  iteration,  and 
a summary  of  all  iterations) 

Figure  2-1  presents  a gross  view  of  the  flow  logic  sequencing.  A more  de- 
tailed logical  flow  diagram  of  the  model  is  included  as  Appendix  C.  The  two  flow 
charts  are  compatible  in  that  the  key  nodes,  identified  by  circles  containing  lower 
case  letters,  represent  corresponding  points  in  the  model  and  program.  The  com- 
puter program,  written  in  the  FORTRAN  IV  language,  implements  these  flow  charts 
and  the  sequenced  logic,  as  described.  To  facilitate  both  descriptive  and  analytic 
program-to-model  interaction,  this  report  will  utilize  FORTRAN  variable  names. 
Appendix  A to  this  report  presents  a list  of  the  variable  names  and  definitions. 

Missions  of  durations  of  up  to  30  days  can  be  simulated.  A mission  to  be 
simulated  may  be  composed  of  up  to  300  types  of  events,  and  200  of  any  of  these 
types  may  be  scheduled  on  any  given  day.  The  events  are  performed  by  crews  of 
no  more  than  20  men  who  are  in  up  to  10  different  personnel  specialties  and  who 
may  be  in  four  command  levels.  The  crew  may  operate  up  to  30  types  of  equipment 
and  may  encounter  up  to  10  types  of  emergencies.  Events  are  performed  by  from 
1 to  20  men  selected  from  the  crew  (or  shift)  to  form  a group  which  accomplishes 
the  specific  event. 
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DETERMINE  INITIAL  VALUE  FOR  EACH  CREW  MEMBER 
OF  THE  FOLLOWING  VARIABLES: 


• PHYSICAL  CAPABILITY 

• COMPETENCE  IN  PRIMARY  SPECIALTY 

• COMPETENCE  IN  SECONDARY  SPECIALTY 

• PACE 

• ASPIRATION  LEVEL 

• HOURS  SINCE  LAST  SLEEP 

• PHYSICAL  INCAPACITY  (DEGRADATION) 

• PSYCHOLOGICAL  STRESS  THRESHOLD 

• AVERAGE  DAILY  PHYSICAL  WORK  LOAD 

• AVERAGE  SHORT  TERM  PHYSICAL  WORKLOAD 

• FATIGUE 


RECORD  CREW  INITIAL 
CONDITIONS  AND 
AVERAGES  BY  COMMAND 
ECHELON 
(OPTION  2) 


FIGURE  2*1.  GENERAL  FLOW  LOGIC  DIAGRAM  OF  MODEL 


FIGURE  2-1.  (CONT.) 


0 


BEGIN  SIMULATION  FOR  EACH  EVENT 


PERFORM  RESETS 

DETERMINE  WHETHER  THIS  EVENT 

ASSIGN  MEN  TO  GROUP  AS  REQUI  RED  BY 

FOR  FIRST 

SHOULD  BE  IGNORED  AS  A RESULT 

TYPE.  SELECT  ON  CRITERIA.  IN  ORDER  OF 

EVENT 

OF  EITHER  OF  THE  FOLLOWING 

IMPORTANCE  ARE: 

CONDITIONS 

1.  EVENT  BELOW 

ESSENTIALITY  THRESHOLD 

PERFORM 

(Cw 

(1)  LEAST  AMOUNT  OF  TIME  WORKED 

(2)  MATCH  OF  WORKER  TO  ENERGY 
REQUIRED 

2.  CONSUMABLES  BELOW 

(3)  COMPETENCE 

THRESHOLD 

IGNORE 

(4)  ASSIGNED  SHIFTS 

ASSIGN  IN  PRIMARY  SPECIALTY  IF  AVAIL- 

(SCHEDULED EVENTS  ONLY) 

ABLE  (EXCEPT TRAINING  EVENTS)  OTHER- 
WISE IN  ALTERNATE  SPECIALTY. 

FIGURE  2-1.  (CONT.) 


o 


FIGURE  2-1.  (CONT.) 


FIGURE  2-1  (CONT.) 


NO  ACTION 


NO 


FIGURE  2-1.  (CONT.) 
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CALCULATE  END-OF  DAY  CONDITIONS: 

• COMPETENCE  OF  EACH  MAN  AS  A FUNCTION  OF 
SUCCESS  RATE  AND  ASPIRATION  LEVEL 

• TOTAL  CREW  COMPETENCE 

• AVERAGE  PHYSICAL  WORKLOAD  OF  CREW  MEMBERS 
AS  A FUNCTION  OF  CALORIES  EXPENDED 

• IDENTIFY  CREW  MEMBERS  FOR  PHYSICAL  INCA- 
PACITY AND  DETERMINE  DURATION  AND  AMOUNT 

• SAFETY  INDEX 

• AVERAGE  EQUIPMENT  PERFORMANCE  LEVEL 

• EQUIPMENT  PERFORMANCE  EFFICIENCY 

• SYSTEM  RELIABILITY  LEVEL 

• SYSTEM  PERFORMANCE  LEVEL 

• SYSTEM  GLOBAL  EFFECTIVENESS  LEVEL 


U 


NO 
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FIGURE  2-1.  (CONT.) 


Data  In pul  Required 

Six  sets  of  data  are  required  prior  to  use  of  the  model.  The  individual 
items  of  data  in  each  of  these  sets  are  given  in  the  various  tables  in  Appendix  B. 

A change  was  made  in  the  method  of  handling  scheduled  event  data.  Instead  of  pro- 
viding input  data  for  up  to  80  events  each  day,  the  model  was  expanded  and  general- 
ized to  allow  the  task  analyst  to  specify  (and  provide  input  data  for)  up  to  300  event 
types.  Any  of  these  can  be  scheduled  at  any  time  of  any  day.  The  input  data  for 
event  types  is  defined  in  Appendix  B.  Also,  for  each  day  of  the  mission,  the  task 
analyst  develops  event  sequence  data  for  up  to  200  scheduled  events  planned  to  be 
performed  that  day.  These  task  sequence  data,  specified  in  Appendix  B (each  refer- 
ing  to  one  of  the  predefined  task  types)  constitute  the  crew  daily  workload. 

All  times  in  the  simulation  are  given  to  a precision  of  hundredths  of  an  hour. 
Each  24  hour  day  is  simulated,  and  time  is  counted  from  0000  to  23.  99.  A subset 
of  the  data  items  for  scheduled  events  is  required  to  describe  an  unscheduled  repair 
of  an  equipment  or  to  describe  an  occurrence  of  an  emergency.  Repair  events  are 
also  called  out  by  type  of  event. 

Note  here  that  the  model  now  distinguishes  between  incidence  of  hard  equip- 
ment failure  (a  condition  in  which  the  equipment  is  completely  inoperable  as  a re- 
sult of,  for  example,  a component  failure)  and  the  incidence  of  intermittent  failure 
(a  condition  in  which  no  "repair"  is  accomplished  but  which  results  in  a reduction 
of  performance  "score"  for  the  equipment). 

The  next  set  of  data,  relating  to  personnel  characteristics  and  qualities  for 
the  mission,  consists  of  the  elements  itemized  and  described  in  Appendix  B.  The 
first  is  average  population  body  weight  (WT).  If  a specific  system  is  being  simu- 
lated in  which  the  body  weights  of  its  personnel  are  known  to  differ  from  those  of 
the  general  population  or  the  general  military  population,  the  mean  weight  and 
standard  deviation  of  that  specific  system's  manning  tables  become  the  input  data. 
For  all  other  circumstances,  the  mean  weight  and  standard  deviation  may  be  ob- 
tained from  any  appropriate  anthropometric  tabulation  (e.  g. , Damon,  Stoudt,  & 
McFarland,  1966;  Webb,  1964;  Hertzberg,  Daniels,  & Churchill,  1950;  etc.  ).  The 
crosstraining  probability  table  provides  the  likelihood  values  of  a man  of  each  type 
having  been  crosstrained  in  each  secondary  specialty. 

Appendix  B lists  the  parameters  of  the  model.  This  model  monitors  the  lev- 
el of  up  to  20  selected  consumables.  Of  these  20,  10  may  be  monitored  on  a unit  ex- 
penditure basis  and  10  may  be  monitored  on  a rate  of  expenditure  (e.  g. , 100  gallons 
per  hour)  basis.  One  parameter  input  specifies  the  initial  inventory  of  consumables 
at  the  beginning  of  the  mission  in  arbitrary  units.  A secondary  input  specifies  the 
consumable  threshold  values.  When  the  value  of  one  or  more  consumables  drops 
below  the  selected  threshold,  those  events  which  require  this  consumable  (except 
repairs  and  emergencies)  are  ignored.  The  parameter  N provides  for  preselecting 
the  number  of  simulations  to  be  performed.  Other  parameters  are  described  later 
in  this  chapter  as  their  influence  is  noted  during  the  processing  flow. 
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FORTRAN  nomenclature  for  other  data  items,  constants,  arrays  and  vari- 
ables complete  Appendix  B.  Discussion  of  recordings  of  results  in  various  print- 
out options  is  postponed  to  the  end  of  the  event  simulation  discussion. 


Crew  Formation  and  Initial  Value  Selection 

The  processing  begins  at  circle  a of  Figure  2-1  or  Appendix  C.  The  num- 
ber of  men  in  the  crew  is  determined  totally  and  by  command  echelon  using  the  MEN 
[NT,  ICE(M)]  data  provided  as  input  from  the  personnel  data.  Each  man  is  assign- 
ed to  one  of  four  command  echelon  values: 

1.  officer 

2.  senior  petty  officer 

3.  junior  petty  officer 

4.  unrated 


Then,  each  crew  member  is  assigned  a primary  specialty  or  type  number,  IPS(M), 
by  the  computer.  Next,  using  this  assignment  and  the  personnel  crosstraining  table, 
PTT[IT,  IPS(M)],  from  the  set  of  personnel  input  data,  each  crew  member  is  as- 
signed a secondary  specialty,  ISS(M).  Values  of  IPS(M)  and  ISS(M)  range  from  one 
to  30,  corresponding  to  the  30  possible  types  of  personnel. 

Crew  members  of  different  levels  of  physical  capability  are  simulated.  The 
physical  capability  variable,  as  employed,  is  intended  to  summarize  and  represent 
the  physiological/anthropometric  characteristics  which  the  crew  member  brings  to 
his  job. 


A normalized  physical  capability  value,  PC(M),  is  now  assigned  to  each  man. 
It  is  the  beginning  of  the  mission  value  calculated  using  the  mean  and  sigma  of  body 
weight  of  the  total  population  (personnel  input  data)  based  on  a normal  distribution. 
Here,  as  well  as  elsewhere  in  this  report,  RD  denotes  a random  deviate,  i.  e. , a 
number  drawn  at  random  from  the  normal  distribution  with  a mean  of  zero  and  a 
standard  deviation  of  unity.  A crew  member  of  average  weight  will  have  a value  of 
PC(M)  - 1. 

The  parameter  CALRY  represents  the  energy  consumption  of  the  average 
crew  member  in  a day.  Using  each  man's  normalized  body  weight  as  a multiplier 
with  the  parameter  CALRY,  a specific  value  is  calculated  indicating  the  average 
number  of  calories,  CAL(M),  which  each  mam  normally  could  be  expected  to  expend 
each  day.  A similar  but  short  term  value  of  energy  or  power  output  (consumption) 
rate,  PWR(M),  is  calculated  for  each  crew  member,  again  using  PC(M)  as  a multi- 
plier. The  parameter  PWRRT,  the  average  caloric  expenditure  of  all  crew  mem- 
bers over  a strenuous  one  hour  task,  is  multiplied  by  the  physical  capability  value 
PC(M)  for  each  M,  and  the  result  PWR(M)  is  used  as  the  short  term  power  rate  per 
hour.  (See  bottom- right  box  of  Appendix  C,  flow  chart  sheet  1.  ) PWRRT  (mnemon- 
ic power  rate)  is  considered  to  reflect  a short  term  peak  workload  requirement. 
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Values  for  individual  crew  member's  pace  or  working  speed  are  selected  by 
pseudorandom  number  techniques  from  a normal  distribution  having  a mean  equal  to 
the  average  crew  pace  parameter,  ACP,  and  a standard  deviation  of  0.  11.  That  is, 

6 8 per  cent  of  the  crew  population  can  be  expected  to  fall  in  the  range  from  ACP  - 
0.  11  (fast  operators)  to  ACP+  0.  11  (slow  operators). 

In  a similar  way,  the  model  next  calls  for  the  calculation  of  a value  represent- 
ing the  level  of  aspiration,  ASP(M),  for  each  crew  member  at  the  start  of  each  mis- 
sion. These  are  selected  from  a normal  distribution  with  a mean  equal  to  the  input 
parameter  AASP  and  a standard  deviation  equal  to  one-tenth  of  that  value.  ASP(M) 
values  must  fall  in  the  0-1  range. 

The  amount  of  sleep  each  man  takes  each  day  is  monitored  by  the  model  as  a 
factor  influencing  fatigue.  One  of  the  elements  involved  here  is  the  length  of  time 
since  the  completion  of  a crew  member* s most  recent  sleep,  HSLS(M);  the  mnemonic 
is  hours  since  last  sleep.  In  order  to  determine  an  initial  value  of  this  variable  for 
each  man  at  the  beginning  of  the  mission,  the  Monte  Carlo  method  is  again  employed 
where  the  average  is  the  input  parameter,  SLEEP,  and  the  standard  deviation  is  1/4 
SLEEP.  Thus,  this  initial  HSI  S(M)  value  represents  the  number  of  hours  since  the 
last  sleep  of  a man,  M,  at  the  start  of  the  mission. 

Given  values  for  IISLS(M)  for  every  crew  member,  it  is  then  possible  to  de- 
termine the  fatigue  level  for  each  man,  FAT(M),  an  important  mission  starting  con- 
dition. This  is  accomplished  using  the  subroutine  FBIIILD  (fatigue  buildup)  shown 
in  Appendix  C. 

The  next  initial  condition  calculation  for  the  crew  results  in  the  selection  of 
a stress  threshold  for  each  man,  STRM(M).  Again,  a specific  value  is  taken  for 
each  crew  member  from  a normal  distribution  having  an  average  equal  to  the  aver- 
age psychological  stress  threshold  parameter,  APST,  and  a standard  deviation  of 
A PST/6. 

The  model  next  generates  a value  for  competence  of  each  crew  member  in 
both  his  primary  and  secondary  specialties,  PCOM(M)  and  SCOM(M),  using  sub- 
routine PSCAP,  Appendix  C,  page  22.  Competence  is  a descriptive  variable  for 
affording  gross  categorization  of  the  quality  level  of  an  individual’s  criterion  be- 
haviors. This  is  accomplished  by  command  echelon  using  percentages  of  crew  of 
various  qualifications  as  provided  in  the  personnel  input  data,  and  the  summarized 
crew  complements  by  command  echelon,  LAA(CE),  previously  calculated.  The  total 
crew  competence  is  determined  in  the  primary  specialty  as  an  average  of  the  PCOM(M) 
values  over  the  crew. 
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Any  physical  incapacity,  PI(M),  of  a man  at  the  beginning  of  the  mission 
is  calculated  next  in  the  same  way  in  which  it  is  determined  before  beginning  each 
day’s  simulation.  A few  randomly  selected  men  may  have  a degraded  condition 
representing  mild  sickness.  The  number  of  such  men  to  be  so  degraded  each  day, 
NPI,  is  determined  by  selecting  a number  from  a Poisson  distribution  whose  aver- 
age is  the  quotient  of  the  number  of  men  in  the  crew  divided  by  the  parameter  MPI 
(the  average  number  of  man  days  per  incidence  of  degradation).  For  example,  if 
there  are  15  crew  members  and  degradation  is  expected,  on  the  average,  once  out 
of  10  man  days,  then  the  number  of  men  considered  handicapped  is  selected  by 
drawing  a number  (always  an  integer)  from  the  Poisson  distribution  having  an  aver- 
age of  15/10  1.  5.  The  selection  of  which  specific  individuals  are  considered  to 

be  degraded  is  made  randomly  so  that  all  men  are  equally  likely  for  selection.  For 
each  man,  M,  so  selected,  the  model  calculates  the  level  of  incapacitation,  PI(M), 
and  the  duration  in  days [ PI2 (M)] . 

The  level  of  physical  incapacitation  is  calculated  so  as  to  yield  an  equiprob- 
able  value  in  the  range  from  0.  75  to  0.  95.  Similarly,  the  duration  of  the  degrada- 
tion is  determined  from  a Poisson  distribution  sampling  in  which  the  average  value 
is  PID,  a personnel  input  datum  representing  the  average  duration  of  a minor  phy- 
sical incapacitation.  The  model  does  not  simulate  the  situation  in  which  a man  is 
incapacitated  to  an  extent  which  precludes  his  working. 

The  results  of  all  initial  value  selection  computations  are  optionally  record- 
ed (print  option  2,  IND(2)  = 1)  individually  for  each  crew  member  and  summarized 
by  crew  echelon  and  for  the  total  crew.  A sample  of  these  data  is  shown  in  Table 
2-1. 
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Table  2 - 1 


Sample  Computer  Output  for  Initial  Values 
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Preparations  for  Daily  Simulation 


At  circle  b of  Figure  2-1,  several  variables  are  reset  to  initiate  the  sim- 
ulation. These  resets  precede  the  simulation  of  the  first  day’s  events. 


In  preparation  for  simulation  of  all  daily  events,  the  model  now  calls  for 
the  determination  of  the  specific  day  of  first  occurrence  of  any  repair  (due  to  ca- 
tastrophic failure)  of  each  of  the  IQ  equipments,  as  well  as  of  the  day  of  first  oc- 
currence of  each  of  the  K types  of  emergencies.  There  is  a limit  (including  up  to 
10  operator  induced  failures)  of  30  repairs  per  day.  The  dates  of  first  repair  are 
based  on  an  exponential  equipment  failure  distribution.  These  are  calculated  as 
one  would  determine  the  time  of  arrival  of  an  event  so  distributed.  (Note  that  the 
model  critically  determines  the  day  of  first  occurrence  of  each  failure.  Later, 
each  time  a day  is  simulated  in  which  such  a failure  occurs,  the  same  procedure 
is  used  to  determine  the  day  of  next  occurrence  of  the  failure.  The  method  se- 
lected is  from  Bekey  and  Gerlough  (1965): 

A phenomenon  characterized  by  sequences  of  arrivals 
may  be  treated  by  the  exponential  distribution;  then; 


p(g  * t ) = 


e 


-t/K 


expresses  the  probability  that  spacing  between  arrivals 
equals  or  exceeds  the  specified  time,  where  g = gap  be- 
tween arrivals,  t = time,  K = average  time  spacing  be- 
tween arrivals  and  1/K  arrivals  per  unit  time.  Then 
t = -Kln(l-P).  One  may  substitute  a random  fraction 
R = 1-P  and  solve  for  the  time  between  arrivals. 


In  this  way,  the  day  of  first  failure  occurrence,  IDF(IQ),  is  determined 
and  rounded  to  the  nearest  integer  day  for  each  equipment,  IQ.  The  "constant" 
used,  RELH(IQ),  is  the  average  time  in  days  between  hard  (catastrophic)  fail- 
ures of  equipment  IQ  and  the  equipment  failure  rate  is  measured  in  average  num- 
ber of  days  between  failure  occurrences.  During  the  course  of  the  mission,  as 
each  failure  occurs  on  a day  being  simulated,  the  day  of  occurrence  of  the  next 
failure  of  that  equipment  is  determined  as  outlined  above  and  added  to  the  previ- 
ous day's  value  to  obtain  the  current  (next)  value. 

All  IDF(IQ)  values  are  reset  to  zero  at  the  initiation  of  each  mission  iter- 
ation. 


Determination  of  the  similar  day  of  first  occurrence  of  each  of  K types  of 
emergencies,  IDE(K),  is  based  on  the  exponential  distribution  using  the  above  de- 
scribed logic  for  the  time  of  next  equipment  hard  failure.  This  was  implemented 
since  it  was  considered  that  an  assumption  of  a constant  hazard  rate  for  antici- 
pation of  emergencies  was  appropriate. 
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The  following  brief  analysis,  although  it  is  a relatively  standard  derivation, 
shows  that  the  consequence  of  this  assumption  is  the  exponential  distribution. 

Let  AAt  = probability  of  a random  event  between  t and  t + At.  Then,  1 - AAt 
= probability  of  no  random  event  between  t and  t + At.  Let  N(t)  = probability  of  no 
event  from  T = 0 to  T = t.  Then  N(0)  = 1,  also  N(t+  At)  = N(t)  x (1  - AAt).  That 
is,  no  event  from  0 to  t + At  means  no  event  from  0 to  t and  no  event  from  t to 
t + At.  From  this  equation,  we  can  obtain  a differential  equation,  solve  it,  and 
so  obtain  the  exponential  distribution  of  time  between  events: 


Thus,  a constant  hazard  rate  and  an  exponential  distribution  of  time  between 
events  are  equivalent. 

Da ily  Simulation 

The  logic  sequence  now  enters  the  phase  of  processing  which  is  repeated 
serially  for  each  mission  day,  ND.  The  sequence  is  initiated  at  circle  c (Figure 
2-1)  with  reset  of  several  variables  in  preparation  for  the  daily  processing. 

Motion  Sickness 

Next,  the  effect  of  sea  state  on  crew  performance  is  determined  for  the 
day.  The  operation  of  most  nonshore  based  Navy  equipment  is  in  an  environment 
where  motion  sickness  can  affect  human  reliability.  Motion  sickness  is  caused 
by  particular  kinds  of  motion;  its  symptoms  include  nausea,  vomiting,  malaise, 
and  cold  sweating.  The  incidence  of  motion  sickness  on  sea  cruises  varies  from 
less  than  one  per  cent  to  almost  100  per  cent,  depending  on  the  vessel,  the  sea 
conditions,  and  other  factors  (Tyler,  1946).  During  moderate  turbulence,  a 
2 5-30  per  cent  rate  of  sickness  to  the  point  of  vomiting  can  be  expected  (Chinn, 
1963).  While  it  is  generally  accepted  that  when  conditions  are  appropriate,  almost 


N(t  + At)  - N(t)  = - N(t) AAt 


Solve  differential  equation,  using  R(0)  = 1,  to  obtain: 


N(t)  = e 


-At 
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everyone  will  become  motion  sick,  it  has  been  shown  (Hemingway  & Gareen,  1945) 
that  the  degree  of  susceptibility  to  motion  sickness  varies  among  individuals.  A 
number  of  studies  have  shown  that  repeated  or  continuous  exposure  to  motion  results 
in  declining  motion  sickness  in  most  people  (e.  g. , Bard,  1945;  Bruner,  1955).  It  is 
clear  that  sufficient  empirical  data  exists  to  generate  distributions  of  expected  mo- 
tion sickness  as  a function  of  mission  length.  The  parameter  inputs,  SESTA(IS), 
specifies  the  cumulative  probability  of  each  of  10  values  of  the  roughness  of  the  sea 
from  0 (calm)  to  9 (rough).  For  example,  a value  of  SESTA(6)  = 0.  72  indicates  that 
72  per  cent  of  all  mission  days  have  a sea  state  of  six  or  below.  Prior  to  simulation 
of  each  day,  a pseudorandom  number  (RY),  in  the  0 to  1 range,  is  compared  to  the 
10  SESTA(IS)  input  values.  Here  is  the  sea  state  index  0,  1,  . . . , 9.  For  example, 
if  the  SESTA(IS)  values  are: 

01  23456  789 

SESTA(IS)  0.10  0.30  0.50  0.80  0.90  0.95  0.97  0.98  0.99  1.0 

and  RY  is  . 36,  the  sea  state  for  this  day,  ICSS,  = 2 since  SESTA(l)  < RY  but  SESTA(2) 
> (RY).  The  current  day's  sea  state,  ICSS,  is  selected  as  the  minimum  value  of  IS 
for  which  SESTA(IS)  < RY  is  selected  as  the  sea  state  for  the  current  day.  This  sea 
state  value  is  used  in  the  calculation  of  a value  for  competence  of  each  crewman  for 
the  day.  Both  primary  and  secondary  specialty  competences,  TPCOM(M)  and 
TSCOM(M),  are  affected.  The  effect  is  linear  such  that  no  change  to  previously 
computed,  nondegraded  (start  of  mission)  competence  values  is  made  if  IS  = 0 (calm 
sea)  and  such  that  start  of  mission  values  are  degraded  by  a factor  of  0.  445  for  a 
worst  case  of  sea  state  of  9,  representing  a heavy  storm  condition.  This  linear  re- 
lationship between  sea  state  and  competence  is  shown  in  the  bottom  left  box  of  logic 
flow  sheet  4 in  Appendix  C. 

Following  this,  the  list  of  days  of  the  first  occurrence  of  repairs  and  emer- 
gencies (just  calculated)  is  scanned  to  identify  any  repairs  and/or  emergencies  which 
are  to  be  simulated  on  this  day.  (The  model  provides  for  simulation  of  up  to  12  "re- 
pair" events  to  represent  a single  equipment  repair.  ) The  total  number  of  such  re- 
pairs and  emergencies  is  integrated  with  the  events  of  this  day.  Pointers,  identify- 
ing the  sequence  of  events  to  be  simulated,  are  then  generated.  If  there  are  no  re- 
pairs or  emergencies,  the  pointer  for  event  1 will  be  2;  for  event  2 it  will  be  3,  etc. 
When  a family  of  one  or  more  repair  events  or  an  emergency  is  encountered  in  this 
process,  the  logic  calls  for  placing  this  unscheduled  event  in  a random  but  equiprob- 
able  position  in  the  sequence  of  all  events  for  the  day.  The  pointer  for  an  unscheduled 
event  is  calculated  by  taking  the  product  of  a pseudorandom  number  in  the  interval 
0-1  and  the  total  number  of  events  for  the  day,  NTE.  The  pointer(s)  for  the  event 
just  prior  to  the  unscheduled  event(s)  is  (are)  then  adjusted  to  indicate  the  unscheduled 
event.  The  data  for  repairs  and  emergencies  are  transferred  in  memory  for  proc- 
essing in  sequence  as  determined  by  the  pointers. 
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This  process  is  accomplished  by  generating  an  array  of  pointers,  NPTR(I), 
1 = 1,  2,  . . NTE,  where  NTE  is  the  total  number  of  events  of  all  types.  Pointers 
serve  to  identify  the  event  to  be  simulated  next,  after  each  event.  The  maximum 
value  of  NTE  is  570,  the  sum  of  NOSE  + NR  + NE: 


NOSE  < 

200:  scheduled  events 

NR  < 

360:  repair  events 

(30  equipments  x 12  repair  events 

per  equipment) 

NE  < 

10:  emergency  events 

The  pointer  array  space  assignment  is  then: 

0 - 200  scheduled  events 

201  - 560  repair  events 

561  - 570  emergency  events 

The  following  other  data  are  now  automatically  inserted  for  repairs  and 
emergencies: 


Kind  of  event  ending 
Type  of  event 

Time  event  must  be  completed 
Time  before  which  event  cannot  begin 


KE  variable  end  time 
INT  emergency  or  repair 
TL  24  hours  (any  time) 

ST  0 hours  (any  time) 


Operator  Induced  Malfunctions 

The  possibility  of  an  operator  inducing  malfunctions  into  the  equipment 
with  which  he  works  has  recently  been  incorporated  into  the  model.  At  this  point 
in  the  simulation  for  each  day,  specific  equipments  are  identified  on  which  such 
failures  are  to  occur.  Actual  event  simulations  generated  by  repairs  thus  in- 
volved are  calculated  and  described  later. 

The  logic  for  this  feature  is  given  in  logic  flow  sheet  5 of  Appendix  C.  Es- 
sentially, it  performs  the  following  functions: 
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• During  the  daily  schedule  generation,  it  determines  the 
events  on  which  an  operator  induced  equipment  failure 
will  occur: 

- This  can  only  occur  once  per  event  family. 

- It  is  a function  of  the  mental  load  of  the 
event  (an  input  code  1-9),  the  current  sea 
state  (0-9),  and  a random  effect.  The  prob- 
ability is  highest  when  the  sea  state  and  men- 
tal loads  assume  their  highest  values.  For 
example,  when  mental  load  for  the  event  is 
low,  i.  e. , has  a value  less  than  3,  then  an 
operator  induced  failure  will  occur  if  the 
ranges  of  these  are: 


0 to  1 (0.  001  to  0.  00125)  (0.  1 to  1) 


- The  occurrence  of  the  operator  induced 
failure  is  then  directly  proportional  to  the 
current  sea  state  and  occurs  with  a prob- 
ability equally  likely  to  fall  between  0.  001 
and  0.  00125  times  — . For  calm 

sea  (ICSS  =0),  this  reduces  to  a probability 
in  the  range  0.  0001  to  0.  000125.  For  ICSS 
= 2,  then  it  does  not  exceed  0.  00375. 

The  probability  of  occurrence  during  an  emer- 
gency is  higher  than  during  a scheduled  event. 

• In  the  case  in  which  an  operator  initiated  malfunction  oc- 
curs, the  model  generates  a family  of  up  to  12  repair 
events  to  represent  the  repair  of  the  equipment  into  which 
the  failure  was  induced.  These  are  inserted  into  the  daily 
schedule  of  events  in  which  the  operator  induced  malfunc- 
tion occurred. 


RY1  < 
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Such  an  occurrence  has  the  subsequent  effect  of  lowering  equipment  reli- 
ability by  adding  events  during  which  equipment  will  be  logged  by  the  model  in  a 
down  (inoperable)  condition. 

Scaling  has  been  selected  so  that  the  probability  of  an  operator  induced 
failure  per  event  varies  for  repairs  from  0.  001  (low  sea  state  and  mental  load) 
to  0.  0375  (high  sea  state  and  mental  load)  and  from  0.  08  to  0.  10  for  emergencies. 


Intermittent  Failures 


As  noted  above,  processing  for  hard  equipment  failures  results  in  repair 
action  events  and  in  degraded  equipment  scores.  The  concept  of  intermittent 
failures  provides  for  equipment  down  time,  which  results  in  worsened  equipment 
reliability  measures,  but  is  not  considered  sufficiently  significant  to  warrant  oper- 
ator repair  action. 

To  incorporate  this  feature,  the  model  calculates  the  number  of  occurrences 
of  intermittent  failures  each  mission  day  for  each  equipment,  INO(IQ).  This  is  ac- 
complished by  selection  of  a pseudo  random  number  from  a Poisson  distribution 
with  mean  equal  to  the  average  number  of  intermittent  failures  per  24  hour  period, 
RELI(JET),  provided  as  an  input  parameter  for  each  equipment  type: 


JET  Equipment  Type 

1 Mechanical 

2 Elect  romechanical 

3 Electrical 

4 Electronic 


Using  this  value  of  INOand  TUI(IQ)  (time  an  equipment  is  down  for  an  aver- 
age intermittent  failure),  the  amount  of  "down  time"  for  each  equipment  is  calcu- 
lated. These  initial  daily  values  of  down  time  for  each  equipment  will  be  increased 
later  for  each  repair  event,  as  it  is  simulated  in  turn. 


Event  Processing 

After  the  setting  of  the  event  number,  IE,  to  the  value  of  the  first  pointer 
and  other  initializations,  the  processing  has  reached  circle  d and  begins  a series 
of  processing  steps  (through  circle  h)  which  is  repeated  for  each  event  to  be  simu- 
lated. 

The  number  of  such  occurrences,  INO(IQ),  is  then  RP[RELI(JET)] , as 
shown  in  the  top-middle  box  of  flow  logic  sheet  6 in  Appendix  C. 
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Following  the  resets  for  each  event,  the  computer  determines  whether  or 
not  conditions  exist  which  would  justify  skipping  (ignoring)  the  current  event.  In 
no  case  is  a repair  or  emergency  event  ignored;  however,  either  of  two  general 
conditions  could  cause  a scheduled  event  to  be  so  treated.  The  first  is  a low  value 
of  the  input  essentiality  of  the  event,  IESS(IE).  If  this  essentiality  value  is  less 
than  the  essentiality  threshold  parameter,  IET,  then  the  event  is  ignored.  (The  task/ 
mission  analyst  determines  the  essentiality  thresholds  on  the  basis  of  his  understand- 
ing of  the  relative  importance  of  each  event  to  the  mission  and  these  values  are  pro- 
vided as  mission  input.  ) 

The  second  possible  condition  for  skipping  an  event  is  too  low  a level  for 
a consumable.  The  model  provides  for  L (up  to  10)  consumables  based  on  usage 
per  event  plus  LI  (up  to  10)  consumables  based  on  usage  per  time.  The  model 
also  provides  (up  to  10)  sets  of  10  thresholds  for  the  supply  of  each  consumable. 

One  set  of  thresholds  is  selected  by  TS(IE)  (input  data)  as  applicable  to  each 
event  and  if  the  value  of  one  or  more  consumables  is  less  than  the  corresponding 
selected  threshold,  then  the  event  is  ignored. 


Personnel  Selection  for  Assignments 

The  logic  detailing  the  selection  of  the  most  desirable  personnel  to  assign 
to  each  a specific  event  begins  at  circle  e of  the  flow  chart.  In  general,  the  proc- 
essing logic  is  similar  for  both  normal  events  and  training  events.  However,  for 
simulating  the  performance  of  normal  events,  personnel  are  assigned  on  the  basis 
of  their  primary  specialty,  whereas  in  the  case  of  training  events,  the  selection 
is  made  on  the  basis  of  the  secondary  specialty. 

The  processing  is  performed  for  each  personnel  type  sequentially.  All 
men  of  the  desired  personnel  type  (who  have  not  already  worked  more  hours  than 
the  overtime  threshold  parameter  [WORK  2]  ) are  considered  and  evaluated  for 
selection  on  the  basis  of  the  following  criteria: 

1.  the  number  of  hours  worked  so  far  during  the  day, 

TW(M).  The  man  who  has  worked  least  is  preferred. 

If  there  is  an  excess  of  men,  with  equal  TW(M)  values 
available,  of  the  type  being  sought,  then  the  selection 
is  made  on  the  basis  of 

2.  a function,  CALR,  relating  the  man's  peak  energy  rate 
(over  a one  hour  period)  to  the  energy  rate,  in  calories 
per  hour,  required  by  the  event  also  normalized  to  a 
one  hour  period.  All  cases  in  which  the  required  ener- 
gy is  less  than  the  man's  "available"  energy  are  con- 
sidered equal.  The  purpose  of  this  selection  criteria 
is  to  avoid  a mismatch  between  the  requirements  of 
the  job  and  the  physical  capability  of  the  personnel  as- 
signed. 
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3.  competence  in  the  primary  specialty,  IPCOM(M).  The 
most  competent  is  selected  first. 

Before  actually  confirming  the  selection  of  a given  man  for  assignment  to 
the  group  which  will  perform  the  event,  a test  is  made  to  determine  if  the  perform- 
ance of  this  event  would  require  that  the  potential  group  member  to  work  overtime. 
That  is,  the  computer  tests  whether  or  not  the  current  time  worked,  TW(M),  plus 
the  expected  (average)  event  time,  ADUR(IE),  exceeds  the  overtime  threshold  pa- 
rameter, WORK  1.  If  the  threshold  is  not  exceeded,  then  the  individual  who  has 
been  tentatively  selected  is  confirmed  for  group  assignment.  If  overtime  is  re- 
quired for  this  man  (for  whom  it  has  already  been  determined  that  he  has  worked 
least),  then  there  are  clearly  no  more  desirable  personnel  of  this  type  available. 

In  this  case,  an  incomplete  processing  indicator  (IPI)  is  set.  Following  the  proc- 
essing of  all  the  remaining  personnel  types,  crosstrained  crew  members  are  sought 
to  substitute  for  any  primary  specialty  men  who  are  unavailable  because  of  the  over- 
time requirement.  The  overtime  thresholds  including  WORK1  are  provided  as  in- 
put parameters  so  that  they  may  be  varied  on  computer  runs  and  the  effects  of  such 
variation  on  output  noted.  Values  of  the  parameters  should  be  selected  on  the  basis 
of  reasonableness  for  the  mission  simulated,  reflecting  the  realities  of  the  work 
cycle. 

The  concept  of  a family  of  scheduled  events  (i.  e. , a group  of  interconnect- 
ed and  interrelated  events)  is  also  included.  This  is  limited,  however,  to  a series 
of  events  performed  by  one  man.  In  case  of  such  a family  (of  up  to  12  events)  all 
will  be  performed  by  the  same  man- -whoever  was  selected  by  the  selection  logic 
for  the  first  event  of  the  family  (i.  e.  , if  IFOI(IE)  1,  from  the  event  sequence 
input  data). 

By  this  process,  one  man  at  a time  is  selected  and  confirmed.  If,  when 
the  most  desirable  crew  member  is  selected,  additional  men  are  still  required 
of  this  type,  then  the  process  repeats.  When  all  required  men  have  been  con- 
firmed, or  the  proper  IPI  has  been  set,  the  sequence  of  operations  is  repeated 
for  each  successive  personnel  type  required  by  the  event,  until  the  entire  required 
work  group  has  been  formed. 

If  the  IPI  indicator  has  been  set  during  the  process,  the  processing  con- 
tinues with  the  search  for  personnel  who  have  been  crosstrained  in  the  personnel 
types  which  were  not  fully  staffed  by  primary  specialists.  Should  the  situation 
arise  in  which  no  more  personnel  of  the  desired  type  are  available  in  the  second- 
ary specialty  without  their  working  overtime,  then  a tally  is  made  and  cumulated 
of  all  such  unmanned  station  hours,  USH,  based  on  the  number  of  unassigned  men 
who  are  required  and  the  average  event  time. 


Group  Leader  Identification 

Provision  is  made  to  simulate  the  influence  of  leadership  on  the  work 
group.  Later  in  the  simulation,  the  leaders  aspiration  and  his  competence  val- 
ue are  used  to  effect  performance.  To  this  end,  the  model  now  requires  desig- 
nation of  a group  leader.  Thus,  at  the  completion  of  the  assignment  of  the  re- 
quired personnel  to  a given  event,  the  model  continues,  at  circle  f of  Figure  2-1, 
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with  the  identification  of  a leader  for  the  workgroup.  The  group  member  with  the 
highest  command  echelon  value  is  tagged  as  the  leader.  In  the  event  of  a tie,  the 
competing  man  with  the  highest  value  of  competence  in  the  primary  specialty  is 
selected. 


Event  Sturt  Time 

The  next  question  to  be  answered  is:  What  is  the  earliest  time  that  the 
event  can  begin,  assuming  the  assigned  men  are  to  perform  the  work,  and  given 
other  input  data?  It  is  likely  that  the  men  who  have  been  selected  for  event  per- 
formance may  have  completed  their  previous  assignment  (or  otherwise  be  avail- 
able) at  different  times.  So  that  the  event  in  question  can  begin  when  all  selected 
men  are  available,  the  latest  time  of  day  at  which  any  group  member  has  com- 
pleted his  most  recent  work  assignment  is  checked.  The  earliest  shift  when  the 
job  can  be  accomplished  is  also  determined.  To  accomplish  this  bookkeeping,  the 
computer  maintains  the  latest  time  that  each  crew  member  has  worked,  Z(M),  and 
the  largest  of  these,  Zl,  (for  the  men  in  the  work  group)  is  determined.  Another 
constraint  which  enters  into  the  determination  of  event  start  time  is  the  case  in 
which  a specified  event  must  be  completed  before  the  present  event  starts.  The 
prior  event,  IPE(IE),  is  given  in  the  input  data.  This  is  implemented  by  keeping 
a value,  ZC(IE),  for  the  time  of  completion  of  every  event  as  it  is  completed,  and 
by  determining  the  time  of  completion  of  event  IPE(IE),  i.  e.  , ZC[IPE(IE)] . The 
last  element  in  the  start  time  determination  is  a specific  time  of  day  before  which 
the  current  event  cannot  begin.  This  value,  ST(IE),  is  also  provided  as  input 
data.  Thus,  the  event  start  time  is  selected  as  the  largest  of  the  three  values: 

Zl,  ZC[ IPE(IE)] , and  ST(IE). 

If  this  start  time  exceeds  the  input  data  time  limit  value,  TL(IE),  then  the 
event  is  bypassed  after  a calculation  of  unmanned  station  hours,  USH.  The  USH 
variable  is  used  to  accumulate  the  number  of  working  man  hours  which  were  dic- 
tated by  the  event  workload  but  which  are  not  performed  due  to  unavailability  of 
crew  members  or  the  like. 


Sli  i f i Lo  pic 

The  optional  shift  logic  allows  the  division  of  the  total  crew  into  watches 
(shifts).  In  the  case  of  implementation  of  this  logic  by  the  analyst,  only  men  as- 
signed to  a shift  which  is  congruent  with  the  real  time  of  day  are  selected  for 
event  assignment.  To  implement  this  feature,  each  simulated  crew  member  is  - 
assigned  by  the  task  analyst  to  one  or  more  shifts  up  to  a maximum  of  six  shifts 
in  a 24  hour  day.  The  model  determines  the  earliest  time  an  event  can  begin 
(based  on  its  start  time  or  time  of  completion  of  the  specified  precedent  event), 
and  identifies  men  for  each  shift  during  which  the  job  could  be  performed.  The 
same  man  may  be  identified  for  more  than  one  shift.  The  number  of  unmanned 
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station  hours  (level  of  undermanning)  which  could  accrue  if  the  event  is  performed 
on  each  possible  shift  is  then  computed,  and  the  event  is  assigned  to  that  shift  in 
which  unmanned  station  hours  is  at  a minimum.  Where  the  minimum  unmanned 
station  hours  occur  in  more  than  one  shift,  the  earlier  shift  is  selected  for  event 
performance.  The  no  shift  option  can  be  effected  by  assignment  of  all  crew  mem- 
bers to  all  shifts  by  the  task  analyst. 


Event  F'atn  i 1 i e s 

In  order  to  allow  for  the  fine  grain  simulation/ analysis  of  events,  the  event 
family  concept  was  developed.  The  analyst  can  break  down  each  scheduled  or  re- 
pair event  into  a series  of  subevents.  These  components  of  human  performance 
can  then  be  simulated  to  determine  which  are  most  critical  to  successful  event 
performance.  Different  types  of  men  can  be  assigned  to  these  subevents  by  the 
analyst  allowing  for  test  of  different  policies.  For  example,  the  results  of  sever- 
al simulations  may  indicate  that  a specific  subevent  in  a repair  family  is  critical 
and  may  require  staffing  by  crew  members  of  generally  higher  proficiency  levels 
or  men  who  are  trained  in  a specific  specialty. 

The  number  of  subevents  and  the  simulation  sequence  of  the  subevents  in 
a family  is  fully  flexible.  For  scheduled  events,  the  number  of  subevents  is  un- 
limited, while  for  repair  events  the  number  is  limited  to  12. 

Each  event  or  subevent  (scheduled,  repair,  or  emergency)  must  be  as- 
signed to  a class  by  the  analyst.  The  classes  for  scheduled  events  are:  com- 
munication, operation,  decision,  or  act.  This  allows  summarization  by  class 
at  the  end  of  the  simulation. 

Each  repair  is  designated  as  one  of  four  major  types:  electrical,  electronic, 
electromechanical,  or  mechanical.  Siegel  and  Schultz  (1962),  using  factor  anal- 
ytic procedures,  identified  nine  factors  involved  in  electronic  repair.  Eight  of 
these  factors,  as  shown  below,  were  expected  to  be  involved  in  the  electronic  re- 
pairs to  be  simulated.  These  results  were  extended  to  the  other  three  major 
classes  of  repairs  (electrical,  electro-mechanical,  and  mechanical)  with  anal- 
ogous factor  (type)  definitions.  The  analyst  identifies  which  major  class  of  re- 
pair he  expects  to  be  necessary  in  his  categorization  of  the  equipment  involved 
in  an  event  as  either  electrical,  electronic,  electro-mechanical,  or  mechanical 
and  uses  the  factor  types  to  define  the  sequence  of  actions  required  to  repair  suc- 
cessfully the  equipment.  Any  or  all  may  be  used  and  in  any  combination.  Per- 
formance of  each  of  these  factors  will  be  simulated  as  a subevent  with  the  concept 
of  a family  being  employed  to  include  all  the  subevents  for  the  repair.  Summari- 
zation by  class  (factor)  then  allows  the  identification  of  the  factors  which  contri- 
bute to  task  failure,  which  take  the  most  time,  and  the  like. 

A summary  of  the  repair  event  types  and  the  factors  within  types  follows. 
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Code 


Repair  Events 

Number 

FORTRAN 

Electronic 

Uses  reference  manuals 

6 

EURM 

Electronic  cognition 

7 

EC 

Electronic  circuit  analysis 

8 

ECA 

Electronic  repair 

9 

ER 

Electronic  equipment  operation 

10 

EO 

Electronic  equipment  inspection 

11 

EIP 

Electronic  instruction 

12 

El 

Electronic  report 

13 

ERPT 

Electrical 

Uses  reference  manuals 

14 

ELURM 

Electrical  cognition 

15 

ELC 

Electrical  analysis 

16 

ELA 

Electrical  repair 

17 

ELR 

Electrical  equipment  operation 

18 

ELO 

Electrical  equipment  inspection 

19 

ELEP 

Electrical  instruction 

20 

ELI 

Electrical  report 

21 

ELRPT 

Electro-mechanical 

Uses  reference  manuals 

22 

EMURM 

Electro-mechanical  cognition 

23 

EMC 

Electro-mechanical  analysis 

24 

EMA  * 

Electro-mechanical  repair 

25 

EMR 

Electro-mechanical  equipment  operation 

26 

EMO 

Electro-mechanical  equipment  inspection 

27 

EMEI 

Electro-mechanical  instruction 

28 

EMI 

Electro-mechanical  report 

29 

EMRPT 

Mechanical 

Uses  reference  manuals 

30 

MURM 

Mechanical  cognition 

31 

MC 

Mechanical  analysis 

32 

MA 

Mechanical  repair 

33 

MR 

Mechanical  equipment  operation 

34 

MO 

Mechanical  equipment  inspection 

35 

ME  I 

Mechanical  equipment  instruction 

36 

MI 

Mechanical  report 

37 

MRPT 

35 


Fa  t i gu  e 


Provision  is  made  within  the  model  to  simulate  fatigue  states.  Fatigue  is 
considered  to  build  as  a function  of  the  energy  demanded  by  a work  event  and  K 
the  duration  of  elapsed  time  since  the  individual1  s last  sleep.  In  general,  accord- 
ing to  Kleitman  (1963),  fatigue  builds  up  slowly  for  the  first  8 to  10  hours  of  wake- 
fulness, then  it  accelerates  more  rapidly  up  to  16  hours  of  wakefulness,  the  nor- 
mal retirement  time.  If  retirement  is  denied  after  16  hours  of  wakefulness,  fa- 
tigue continues  to  guild  until  about  20  hours  of  wakefulness,  the  middle  of  what 
would  be  the  sleep  period.  Then,  as  a function  of  the  body's  circadian  rhythm,  the 
rate  of  additional  buildup  slows  quite  markedly.  The  asymptotic  maximum  is  reach- 
ed at  about  the  50th  sleepless  hour,  which  would  represent  two  consecutive  nights 
without  sleep.  The  literature  indicates  that  ’’after  two  successive  nights  of  sleep 
deprivation  the  subjects  are  about  as  sleeply  as  they  are  likely  to  get.  . . [Kleitman, 
1963,  p.  226]  . ” 

Having  determined  the  starting  time  for  the  event  under  consideration,  the 
question  arises:  How  long  has  it  been  between  the  time  each  group  member's  most 
recent  event  was  completed  and  the  time  the  current  event  begins?  If  this  interval 
is  zero,  the  following  processing  for  sleep,  time  fatigue,  and  physical  capability 
need  not  be  performed  since  no  change  has  taken  place  in  these  values,  which  are 
also  calculated  following  each  simulated  event.  However,  if  some  time  has  elapsed 
(possibly  different  amounts  of  time  for  each  group  member),  then  these  factors  may 
change  and  the  appropriate  processing  is  performed.  If  the  interval  exceeds  the 
catnap  rest  parameter,  CN,  for  any  man,  then  it  is  assumed  that  the  man  in  ques- 
tion was  in  fact  sleeping  during  the  interval.  Exceptions  to  this  are:  (1)  the  situa- 
tion in  which  a man  has  already  exceeded  the  maximum  daily  sleep  allowance  pa- 
rameter MAXSL,  or  (2)  the  situation  in  which  a man's  fatigue  level  is  below  the 
fatigue  threshold  parameter  TFAT.  This  last  condition  insures  that  no  sleep  will 
begin  for  personnel  who  are  not  sufficiently  ’’tired.  ” If  a sleep  period  occurs,  its 
duration  istalliedas  equal  to  the  interval  less  a fixed  sleep  preparation  and  wake- 
up  time  (30  minutes) 

A value  of  time  fatigue  is  calculated  if  sleep  is  to  be  simulated.  Time  fa- 
tigue of  an  operator,  FAT(M),  is  reduced  as  a function  of  the  amount  of  sleep  and 
is  increased  after  the  duration  of  the  event  itself  is  known.  The  fatigue  relief  func- 
tion utilized  was  developed  previously  by  Applied  Psychological  Services  (1966)  and 
is  presented  as  Figure  2-2.  The  general  nature  of  the  fatigue  relief  calculation  is 
to  examine  the  duration  of  the  sleep  and  to  reduce  the  fatigue  level  in  accordance 
with  a relationship  which  specifies  that  eight  continuous  hours  of  sleep  reduce  fa- 
tigue to  zero.  However,  to  simulate  such  factors  as  individual  differences  in 
sleep  requirements,  more  and  less  refreshing  sleep,  and  other  randomly  occur- 
ring and  hence  unprogramable  events,  the  specific  extent  of  fatigue  reduction  re- 
sulting from  a given  duration  of  sleep  is  selected  by  a stochastic  process  from  a 
range  of  values  surrounding  the  fatigue  reduction  curve.  This  is  accomplished  by 
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Figure  2-2.  Fatigue  relief  curve. 
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selecting  a number  equip robable  in  the  shaded  area  (by  pseudorandom  numbers) 
around  the  two  linear  events  in  Figure  2-2  as  a function  of  the  duration  of  the 
sleep  period  itself.  This,  in  turn,  generates  a fatigue  reduction  factor  which  is 
then  multiplied  by  the  current  fatigue  level.  This  process  is  repeated  for  each 
man  in  the  work  group  independently. 

If  the  interval  is  insufficient  to  allow  sleep,  then  it  is  assumed  that  the  in- 
terval was  spent  in  some  leisure,  recreational  or  rest  activity,  but  that  this  activ- 
ity, nevertheless,  has  the  same  effect  on  a man's  fatigue  as  working.  In  this  case, 
the  model  calls  for  the  calculation  of  a new  fatigue  value  for  each  group  member 
in  this  situation.  Here,  the  function  used  is  the  fatigue  buildup  relationship,  as 
shown  in  Figure  2-3.  As  in  the  case  of  fatigue  relief  from  sleep,  the  function  is 
divided  into  linear  segments  around  which  random  variations  are  taken  to  obtain 
specific  values  of  FAT(M)  at  any  given  time.  This  calculation  is  self  contained 
in  subroutine  FBUILD  (HSLS),  as  shown  in  Appendix  C,  page  22. 


Physical  Capability 

Salient  within  the  simulation  is  the  conception  of  the  match  between  a per- 
son's physical  capability  and  the  job  requirements.  Heavy  duty  tasks,  such  as 
ammunition  handling  and  equipment  moving,  require  a greater  physical  capability 
than  operating  electronic  equipment  or  plotting  courses  and  bearings.  According- 
ly,  provision  is  made  to  simulate  individuals  of  various  levels  of  capability  with 
respect  to  the  physical  characteristic  of  strength. 

In  addition,  the  physical  capability  variable  permits  the  simulation  to  re- 
flect changes  in  the  same  individual.  Specifically,  this  variable  affords  direct 
simulation  of  the  effects  of  fatigue,  of  such  randomly  occurring  incapacitators  as 
colds,  headaches,  seasickness/airsickness,  sprains  and  strains,  and,  as  an  out- 
put, it  affords  analysis  of  physical  workloads  separate  and  distinct  from  mental 
workloads. 

The  representation  of  strength  in  the  model  is  an  indirect  one.  This  seems 
necessary  because  the  literature  indicates  that  strength  is  not  a unitary  concept. 

Fleishman  et  al.  (1961,  1962)  administered  a broad  spectrum  of  strength 
tests  to  201  Naval  trainee  recruits  on  whom  age,  height,  and  certain  other  data 
were  available.  All  test  results  and  anthropometric/biographic  data  were  inter- 
correlated,  and  the  resulting  matrix  was  factored  by  the  centroid  method  and  ro- 
tated to  a simple  structure.  This  procedure  yielded  three  primary  factors  of 
strength,  a fourth,  markedly  weaker,  and  three  final  factors  not  involving  strength 
variables  per  se  (i.  e.  , one  was  interpreted  as  a balancing  factor,  and  the  other 
two  factors  were  biographically  related).  The  three  primary  factors  of  strength 
were  named  Dynamic  Strength,  Static  Strength,  and  Explosive  Strength.  They 
were  described  by  the  authors  as  follows: 
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Figure  2-3.  Fatigue  buildup  curve 


The  common  requirement  of  all  tests  on  the  Dynamic 
Strength  factor  is  for  the  muscles  involved  to  propel, 
support,  or  move  the  body  repeatedly  or  to  support  it 
continuously  over  time. 

The  tests  of  our  Static  Strength  factor  emphasize  the 
lifting  power  of  the  muscles  or  the  pounds  of  pressure 
which  the  muscles  can  exert.  ...  In  contrast  to  Dynamic 
Strength  the  force  exerted  is  against  external  objects, 
rather  than  in  supporting  or  propelling  the  body's  own 
weight. 

We  have  given  the  Explosive  Strength  factor  the  alter- 
nate name  of  ''Energy  Mobilization,  " since  tasks  of 
measuring  this  factor  require  the  effective  release  of 
energy  in  one  explosive  act.  . . . The  fact  that  our  sprints 
are  loaded  on  this  factor  is  entirely  consistent  with  this 
notion  of  "distance  through  which  a force"  can  be  moved 
(Fleishman,  Kremer,  & Shoup,  1961,  p.  37). 


These  descriptions  seem  to  imply  that  the  first  and  the  third  factors  pertain 
mainly  to  the  types  of  strength  exhibited  in  particular  athletic  contests.  In  fact, 
gymnastics  and  calisthenics  loaded  most  heavily  on  the  first  factor  and  running  and 
jumping  activities  loaded  most  heavily  on  the  third.  Factor  two,  however,  the  so- 
called  Static  Strength  factor,  seems  to  transcend  athletics  and  to  reflect  the  type  of 
strength  involved  in  most  military  and  industrial  laboring  tasks  which  depend  on 
strength.  This  is  the  type  of  strength  that  is  involved  in  lifting,  pushing,  pulling, 
and  otherwise  moving  equipment,  and  other  objects.  Furthermore,  the  Fleishman 
et  al.  data  show  static  strength  to  be  highly  correlated  with  weight. 

In  view  of  the  availability  of  weight  data,  body  weight  was  accepted  as  the  in 
dicator  of  physical  capability  within  the  model. 

Other  data  further  support  the  defensibility  of  weight  for  providing  a reason 
able  index  of  strength.  For  example,  Damon,  Stroudt,  and  McFarland  (1966)  indi- 
cated that  "A  general  size  factor,  common  to  all  dimensions,  extends  also  to 
strength.  " Tappen  (1950),  in  examining  championship  weightlifters,  obtained  a cor 
relation  coefficient  of  0.  85  between  body  weight  and  the  number  of  pounds  "pressed. 
Caldwell  (1963)  reported  a product  moment  correlation  of  0.  74  between  the  weight 
and  the  maximum  dynamometric  pull  of  both  male  and  female  college  students. 
Fisher  and  Birren  (1949)  also  reported  significant  correlation  coefficients  between 
the  dynamometer  score  and  weight  of  90  male  military  personnel  and  161  Waves. 
Hansen  and  Cornog  reviewed  a study  by  Jones  (1947)  indicating  that  ".  . . strength  is 
related  both  to  body  size  (especially  to  weight)  and  to  the  mesomorphic  component 
in  body  build"  (Hansen  & Cornog,  1958,  p.  250). 
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Within  the  simulation,  the  physical  capability  of  the  various  crew  members 
changes  during  the  course  of  a mission  as  a function  of  two  fundamental  concepts: 
(1)  the  physical  capability  of  the  infirmed  operator  (e.  g.  , the  operator  who  is  sea- 
sick, has  a cold,  or  a headache,  etc.  ) is  less  than  the  physical  capability  of  that 
operator  when  he  is  well,  and  (2)  the  physical  capability  of  the  fatigued  operator 
is  less  than  the  physical  capability  of  that  operator  when  he  is  "fresh.  n 

By  program  action,  such  degrading  effects  occur  at  random  times  during 
the  mission,  at  a rate  dependent  on  an  input  parametric  value.  The  processing  of 
this  variable  occurs,  however,  only  at  the  beginning  of  the  mission  and  at  the  end 
of  each  mission  day.  The  value  of  the  variable  is  utilized  in  the  physical  incapaci- 
ty calculation. 

When  a simulated  individual  becomes  subject  to  the  incapacity  effect,  his 
physical  capability  is  reduced.  The  exact  extent  of  impairment  cannot  be  speci- 
fied in  view  of  large  individual  differences  in  reaction  to  these  minor  ailments  and 
afflictions.  Accordingly,  the  capability  reduction  is  treated  by  a stochastic  proc- 
ess. 


Physical  Capability  Calculations 


If  a fatigue  calculation  is  required  (and  a new  time  fatigue  value,  FAT(M), 
determined  for  the  working  group  members),  then  the  current  physical  capability, 
PCC(M),  must  also  be  calculated  since  PCC(M)  is  dependent  upon  FAT(M).  This 
calculation  represents  the  physical  capability  of  the  men  at  the  start  of  the  event. 

It  is  repeated  for  each  group,  as  described  below.  It  is  assumed  that  the  physi- 
cal capability  of  a man  decreases  with  time  at  work,  total  work  done,  overexertion, 
and  disability  (physical  degradation).  Physical  capability  also  varies  among  men. 
These  effects  are  assumed  to  be  independent  of  each  other  and  operate  multiplica- 
tively.  The  function*  may  be  expressed  analytically  as: 


PCC(M)  = PC(M)  • PI(M)  • [l-(l-Kl)(ftt^/,~-r]  • g(-p^)  . [1-0.  1 FAT(M)] 

N 


Here,  PC(M)  is  the  physical  capability  (related  to  strength)  of  the  man,  as  calcu- 
lated at  the  beginning  of  the  mission  (1  is  an  average  value).  PI(M)  is  the  physical 
incapacity  galue  related  to  minor  sicknesses  discussed  above.  The  factor  [l-(l-Kl) 
ACAL(M)  termed  the  work  factor.  Here,  ACAL(M)  is  the  total  work  done 

'-ncrcm* 


The  physical  capability  variable  was  selected  and  quantified  on  the  basis  of 
an  analysis  of  the  pertinent  sources  as  summarized  in  Siegel,  Wolf,  and  Cosentino 
(1971,  pages  31-34).  The  form  of  the  function  and  its  rationale  follows  from 
that  analysis. 
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(calories  expended)  on  all  events  from  the  last  sleep  period  up  to  and  including 
half  of  the  calories  expected  to  be  expended  on  this  event,  maintained  by  the  com- 
puter as  the  tally  of  accumulated  calories.  CAL(M)  is  the  average  number  of  cal- 
ories expended  in  a normal  working  day  for  each  man,  as  discussed  earlier.  The 
K1  term  represents  a disability  factor--a  fraction  to  which  the  work  factor  falls 
when  a particular  man  has  done  his  normal  quota  of  work  during  the  day.  In  this 
analysis,  we  note  that  a man's  capability  decreases  as  he  continues  to  work  and 
that  it  is  reduced  to  the  value  K1  after  a normal  day's  effort.  The  term  gfP'p/Ppsj 
represents  an  overexertion  effort.  Here,  a mismatch  of  capabilities  between  the 
men  assigned  and  the  physical  requirements  of  the  events,  in  terms  of  energy  (cal 
ories)  required,  are  considered.  The  function  is ; 


P 


T 


P 


N 


1 


c-PT/P 
c - 1 


N 


when  PT/PN  * 1 
when  1 < P^/P^  < c 


Thus,  the  overexertion  factor  has  no  influence  as  long  as  the  work  rate  for  the  giv 
en  event  does  not  exceed  the  peak  work  rate  expected  for  the  men. 

In  FORTRAN  notation: 


P^,  work  rate  for  the  event 

= IEC(IE)  calories  per  hour 

P^T,  peak  work  rate 

= PWR(M)  calories  per  hour 

c,  value  of  P^/  P^  yielding  zero 

= ZPC 

physical  capability  due  to  over- 

exertion 

The  function  is  represented  graphically  as  shown  in  Figure  2-4. 
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Figure  2-4.  Overexertion  function. 


The  last  term  of  the  PCC(M)  equation  is  a function  of  the  fatigue  factor,  as 
previously  defined,  which  is  dependent  only  upon  time  elapsed  since  last  sleep  and 
sleep  duration. 

The  group  physical  capability  is  calculated  as  the  average  of  the  physical 
capability  values  over  all  group  members. 


Co  mpplence 

Job  competence,  as  employed  in  this  simulation  model,  represents  those 
aptitude,  ability,  training,  and  experiential  factors  which  determine  how  well  an 
individual  performs  on  the  job.  It  pertains  to  the  quality,  or  accuracy,  of  per- 
formance, and  is  almost  completely  independent  of  the  speed  of  performance.  The 
overall  influence  of  this  variable  is  for  greater  competence  to  yield  more  accurate 
task  performance.  The  only  circumstance  in  which  competence  bears  any  relation- 
ship to  event  completion  time  in  the  model  is  in  the  circumstance  of  an  event  which 
must  be  repeated  if  performed  unsatisfactorily.  The  less  competent  individual  has 
a lower  probability  of  succeeding  on  an  event.  Since  repetitions  consume  time, 
satisfactory  completion  of  that  event  will  take  the  less  competent  operator  longer 
than  his  more  competent  peer--not  because  he  necessarily  works  more  slowly-- 
but  because  he  is  more  likely  to  need  to  repeat  the  event. 

Each  simulated  crew  member  is  considered  to  have  a degree  of  competence 
rated  on  a scale  between  zero  and  unity,  in  both  a primary  occupational  specialty 
and  a secondary  specialty.  Competence  values  at  the  start  of  a mission  are  select- 
ed by  the  computer  on  the  basis  of  personnel  input  data.  Mean  and  standard  devia- 
tion values  for  the  generation  of  such  data  are  available  in  a number  of  sources. 
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Within  the  model,  competence  is  one  of  the  principal  determinants  of  how  well 
an  event  will  be  performed.  Thus,  as  the  competence  of  the  persons  selected  to 
perform  an  event  increases,  the  likelihood  that  they  will  perform  the  event  satis- 
factorily also  increases. 

However,  we  do  not  assume  competence  to  be  static.  Within  the  model, 
provision  is  made  to  allow  competence  to  be  modified  as  a function  of  experience 
(Ghiselli  & Brown,  1948)  and  as  the  aspiration  level  varies.  In  the  prior  regard, 
Deutsch  (1954,  p.  208)  maintained  that  "if  an  individual  has  considerable  experi- 
ence in  a given  activity,  he  will  know  pretty  well  what  level  he  can  expect  to  reach 
and  the  gradient  of  values  on  the  subjective  probability  scale  will  be  steep"  and  in 
the  latter  regard,  Krech  and  Crutchfield  (p.  410)  contended  that  "A  successful  in- 
dividual typically  sets  his  next  goal  somewhat,  but  not  too  much,  above  his  last 
achievement.  " Consequently,  the  model  provides  for  increments  in  the  compe- 
tence of  crew  members  during  the  mission  simulation  as  a function  of  perform- 
ance and  aspiration  levels.  This  relationship  is  shown  in  the  first  box  of  flow  logic 
sheet  19  and  is  explained  in  a subsequent  section  of  this  chapter  which  is  side  head- 
ed "competence  upgrading.  " 

Stress 


Provision  is  made  within  the  model  to  simulate  the  effects  of  certain  mani- 
festations of  anxiety  and  stress.  Specifically,  differences  in  the  stress  tolerance 
of  individuals  are  simulated,  as  are  individual  anxiety  levels  and  ractions  to  anxi- 
ety/ stress. 

Stress  is  operationally  defined  as  the  ratio  of  the  amount  of  time  needed 
for  completion  of  the  current  event  to  the  amount  of  time  available  for  complet- 
ing the  event.  This  value  is  calculated  for  each  event  (i.  e.  , for  each  group  per- 
forming the  event)  during  the  simulated  mission.  Stress  tolerance  is  simulated 
as  a threshold,  STRM(M),  assigned  for  each  crew  member,  against  which  the 
stress  value  is  compared  in  order  to  determine  program  actions.  Stress  values 
which  are  below  threshold  are  considered  mild;  those  of  threshold  level  and  larg- 
er are  considered  severe.  The  general  principle  implemented  is  for  mild  stress 
to  be  psychologically  organizing  or  facilitating,  while  severe  stress  is  disorgan- 
izing or  debilitating.  This  representation  is  consistent  with  the  current  litera- 
ture on  the  influence  of  stress  on  various  aspects  of  behavior.  A number  of  oth- 
ers (e.  g.  , Harris,  Mackie,  & Wilson,  1956;  Torrance,  1961;  and  Hare,  1962) 
have  reviewed  the  effects  of  stress  on  task  performance.  All  of  these  essenti- 
ally concur  that  stress  exerts  a beneficial  effect  up  to  a particular  point,  but  be- 
yond that  point,  stress  is  disorganizing. 
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Under  severe  stress,  performance  accuracy  is  expected  to  deteriorate. 

The  incidence  of  careless  errors  with  mounting  pressure  and  with  attempts  to 
save  time  is  a common  observation.  It  is  confirmed  in  most  contemporary  psy- 
chological views  of  anxiety  influences.  Accordingly,  when  an  operator's  current 
stress  reaches  the  level  of  his  stress  threshold,  the  probability  of  successful  task 
performance  is  reduced  or,  phrased  alternatively,  the  probability  of  error  is  in- 
creased. When  stress  subsides  to  more  modest  levels  (below  the  threshold),  this 
effect  is  reversed. 

As  described  above,  stress  also  affects  the  operator's  level  of  aspiration. 

So  long  as  stress  remains  low  relative  to  the  stress  threshold,  aspirations,  when 
attained,  are  reset  higher.  When  stress  mounts  to  the  level  of  the  stress  thresh- 
old, if  the  aspiration  level  is  not  attained,  it  is  reduced  to  the  level  of  current  per- 
formance. This  influence  of  stress  on  the  level  of  aspiration  is  an  implementation 
of  Lewinian  psychology.  In  1942,  Lewin  wrote  that  nA  successful  individual  typi- 
cally sets  his  next  goal. . . above  his  last  achievement.  . . . The  unsuccessful  individ- 
ual, on  the  other  hand.  . . becomes  intimidated  and  gives  up  reaching  out  toward 
higher  goals.  . . " The  model  utilizes  stress  as  well  as  performance  records  in  dif- 
ferentiating the  successful  from  the  unsuccessful  individual,  in  order  to  effect  its 
program  actions. 

Finally,  situational  events  can  influence  stress  loads.  In  particular,  emer- 
gency situations  impose  considerable  stress  upon  all  who  are  party  to  them.  This 
very  obvious  effect  is  simulated  by  providing  for  the  possibility  of  increased  stress 
when  certain  selected  emergencies  occur. 

In  summary,  the  concept  of  a stress  threshold,  as  defined  for  an  individual 
in  the  prior  model,  developed  by  Applied  Psychological  Services  for  the  Office  of 
Naval  Research  (Siegel  & Wolf,  1969),  is  extended  in  the  present  case  to  apply  to 
the  group.  A group  stress  threshold,  GSTRM,  is  calculated  as  the  average  of  the 
stress  threshold  values  of  the  men  assigned  to  the  group.  The  psychological  stress 
of  the  group  itself  in  accomplishing  the  event  is  now  determined. 

Psychological  stress  is  a time-induced  function  dependent  on  the  time  avail- 
able to  the  operator  and  his  expected  performance  time.  In  the  present  model, 
therefore,  if  no  event  time  limit,  TL(IE),  is  specified  as  input  data,  the  no  stress 
condition,  GSTR  1.  0,  applies.  If  a time  limit  is  specified,  then  the  group  stress 
is  calculated  as: 


GSTR 


Expected  Performance  Time 
Time  Available 


x Mental  Load  Factor 


where  GSTR  is  limited  between  1 and  5,  the  expected  performance  time  is  ADUR(IE), 
the  time  available  is  the  time  limit  less  start  time  = TL(IE)-Z2,  and  the  mental 
load  factor  is  0.  875  + LODM(IE)(0.  25).  This  mental  load  effect  is  represented 
graphically  in  Figure  2-5.  Here,  LODM(IE)  is  the  mental  load  input  code. 
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Figure  2-5.  Mental  load  effect. 


E\ pn I Duration 


The  next  major  segment  of  the  processing,  which  represents,  in  a sense, 
the  kernel  of  the  simulation,  is  the  calculation  of  the  duration  of  the  event.  It  in- 
volves variables  such  as  stress,  goal  aspiration,  pace,  and  group  performance. 


If  the  event  is  known  to  be  of  fixed  duration,  ASD(IE)  = 0,  or  if  the  end  time 
of  the  event  is  fixed,  i.  e.  , if  event  input  specifies  KE(IE)  = 1,  then  it  is  not  neces- 
sary to  calculate  the  performance  time  and  those  variables  upon  which  it  is  other- 
wise dependent.  In  such  cases,  the  processing  continues  with  circle  g after  the  set- 
ting of  the  performance  time,  PT(IE),  and  event  end  time,  ZC(IE).  In  preparation 
for  this,  the  calculation  of  group  performance  (event  success  percentage)  and  group 
aspiration  are  accomplished  next  as  the  averages  of  the  group  members’  individual 
values  for  these  respectively. 
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PERF(M)  = Current  Performance  of  Each  Man 


Number  of  Successful  Events  Worked  On  Whole  Mission 
Total  Number  of  Events  Worked  On  Whole  Mission 

GPERF  = Group  Performance  = Average  of  Performance  of  the  Men  in  Group 

GASP  = Group  Aspiration  = Average  of  Current  Aspiration  of  the  Men  in  Group 


Asp i rut  ion 

Provision  is  made  to  simulate  the  level  of  aspiration,  or  motivation,  of 
each  member  of  the  crew.  This  is  done  by  initially  assigning  individual  aspiration 
values  on  a zero  to  one  scale,  permitting  those  values  to  affect  the  speed  of  per- 
formance, and  then  adjusting  the  aspiration  values  as  a function  of  operator  suc- 
cess records  and  the  amount  of  stress  being  incurred. 

The  initial  aspiration  level  represents  the  performance  that  the  operator 
would  hope  to  attain- -the  ratio  of  the  number  of  event  successes  to  the  number  of 
attempts.  Thus,  an  operator  with  an  aspiration  value  of  1.  00  would  aspire  to  suc- 
ceed in  every  one  of  his  task  attempts,  while  an  operator  with  aspiration  value  of 
0.  50  would  have  lower  motivation  and  would  be  viewed  as  considering  a rate  of  one 
successful  attempt  in  two  as  acceptable. 

As  simulated,  the  level  of  a man’s  aspiration  influences  his  working  pace 
and  stress,  and  is  in  turn  subject  to  the  influence  of  the  degree  of  stress  the  oper- 
ator is  incurring  and  his  success  record.  Considered  are:  (a)  the  operator’s  goal 
discrepancy- -the  difference  between  the  aspired  success  record  and  the  actual  re- 
cord, and  (b)  the  difference  between  current  stress  on  the  operator  and  the  opera- 
tor’s stress  threshold.  Comparison  of  the  goal  discrepancy  with  the  stress  differ- 
ential provides  the  basis  for  the  reciprocal  influences  involving  level  of  aspiration. 
Five  discrete  circumstances  can  exist. 

Case  0 No  significant  goal  discrepancy 

Case  1 Positive  goal  discrepancy  (i.  e.  , aspiration  in  excess 
of  actual  performance  record)  and  subliminal  stress 

Case  2 Zero  or  negative  goal  discrepancy  and  subliminal  stress 

Case  3 Positive  goal  discrepancy  and  stress  equal  to  or  greater 
than  threshold 

Case  4 Zero  or  negative  goal  discrepancy  and  stress  equal  to  or 
greater  than  threshold 
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Through  the  five  cases  described  above,  the  level  of  aspiration  variable, 
a motivational  variable,  can  be  seen  to  influence  working  pace  and  current  stress, 
while  being,  in  turn,  influenced  as  a function  of  task  success  records  and  level  of 
stress.  The  reciprocal  and  dynamic  quality  of  the  variable  as  treated  in  the  mod- 
el is  quite  consistent  with  aspiration  level  dynamics  as  described  by  such  writers 
as  Lewin  (1942)  and  Kelley  and  Thibaut  (1954). 

The  model's  logic  for  processing  each  case  is  shown  in  Table  2-2  below. 


Table  2-2 

Goal  Aspiration  Cases 


Aspi ration-Performance 
Case  Condi t i on 


Stress  vs. Threshold 
Condi t i on 


Resu  1 1 


0 

1 

2 
3 


IGASP-GPERF)  < 0.  02 


GPERF  < GASP 
GPERF  > GASP 
GPERF  < GASP 


GSTR  < GSTRM 
GSTR  < GSTRM 
GSTR  > GSTRM 


None 

Calculate  pact  adjustment  factor 

Reduce  aspiration  level 

Set  aspi  ration  = performance 
Calculate  pace  adjustment  factor 


4 GPERF > GASP 


GSTR  > GSTRM  Reduce  group  stress 


The  pace  adjustment  factor  is  calculated  as: 
Case  1:  PAF  = 1.  0 - 0.  4 (GASP  - GPERF) 

Case  2:  PAF  - 1.0+  0.  4 (GASP  - GPERF) 


The  pace  adjustment  effect  is  shown  graphically  in  Figure  2-6.  Thus,  changes  in 
the  pace  due  to  this  adjustment  factor  are  a linear  function  of  the  difference  between 
aspiration  and  actual  performance,  where  lower  pace  values  indicate  faster  oper- 
ators. 
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Case  1 presents  a circumstance  which  will  be  recognized  as  predisposing 
positive  motivational  value- -the  operator  is  not  performing  as  well  as  he  would 
like  to,  yet  he  is  only  mildly  stressed,  if  at  all.  The  psychological  expectation 
is  that  he  would  strive  to  perform  better,  and  the  model  effects  this  by  reducing 
his  pace  value,  thus  simulating  his  working  faster. 

Case  2 further  illustrates  the  dynamic  aspect  of  level  of  aspiration,  both 
as  occurring  in  life  and  as  simulated  in  the  model.  Presented  is  a zero  or  nega- 
tive goal  discrepancy,  which  means  that  performance  has  at  least  equalled  oper- 
ator aspiration,  and  stress  is  still  of  only  modest  magnitude.  Psychological  the- 
ory (e.  g. , Deutsch,  1954)  indicates  that  under  these  conditions,  the  operator  would 
’’raise  his  sights”  and  aspire  to  do  more,  since  he  demonstrated  to  himself  that  he 
has  easily  attained  the  initial  level.  In  this  regard,  Krech  and  Crutchfield  (1948) 
w rote: 


...a  successful  individual  typically  sets  his  next  goal  some- 
what,  but  not  too  much,  above  his  last  achievement.  In  this 
way  he  steadily  raises  his  level  of  aspiration.  Although  in 
the  long  run  he  is  guided  by  his  ideal  goal,...,  nevertheless 
his  real  goal... is  kept  realistically  close  to  his  present  po- 
sition. 

This  process  is  simulated  in  the  model  according  to  a Monte  Carlo  procedure,  as 
described  in  the  next  chapter. 

Case  3 presents  a circumstance  of  resignation.  The  operator  is  not  per- 
forming as  well  as  he  would  like,  but  is  incurring  severe  stress.  Because  of  the 
severe  stress,  he  has  no  choice  but  to  accept  his  current  performance  level.  The 
model  effects  this  by  reducing  the  aspiration  value  so  that  it  equals  the  perform- 
ance record.  The  simulated  operator  has  ceased  his  upward  striving  and  avoids 
the  severe  stress  by  accepting  his  current  performance.  However,  associated 
with  the  cessation  of  upward  striving,  with  the  ”edge”  off  the  individual’s  motiva- 
tion, one  might  expect  to  observe  the  beginnings  of  a partly  voluntary  and  partly  in- 
voluntary deterioration  in  performance.  This  effect  is  simulated  in  the  model  by 
also  increasing  the  pace  value,  thus  slowing  down  the  rate  at  which  the  operator 
performs  his  tasks. 

In  case  4,  current  stress  is  altered.  Specifically,  Case  4 presents  the  cir- 
cumstance of  performing  equalling  or  exceeding  operator  aspiration,  but  stress  be- 
ing substantial.  That  is,  the  operator  is  incurring  severe  stress,  despite  the  fact 
that  he  has  attained  the  level  of  performance  he  set  for  himself.  It  seems  reason- 
able that  as  he  reviews  his  success  record,  he  stops  ”sweating  it”  quite  so  des- 
perately, for  he  has  demonstrated  that  he  can  attain  his  aspiration  level.  In  the 
model,  this  is  simulated  by  reducing  the  operator’s  current  stress  by  ten  per  cent. 


49 


In  case  2,  the  increase  in  aspiration  level  is  randomized  to  be  equiprobable 
between  a zero  and  10  per  cent  increase.  In  case  4,  the  group  stress  reduction  is 
always  a 10  per  cent  reduction. 


GOAL  ASPIRATION -GROUP  PERFORMANCE 


Figure  2-6.  Pace  adjustment  effect. 


Working  Pace 

The  ISM  model  simulates  differences  in  the  pace,  or  the  speed,  at  which 
each  of  the  various  crew  members  works.  This  variable  is  intended  to  sum- 
marize and  represent  individual  differences  which  determine  how  quickly  an  in- 
dividual performs  a job.  Speed  of  event  performance  is  treated  in  the  model  in- 
dependently from  the  accuracy  of  performance.  The  pace  variable  is  one  of  the 
means  by  which  the  speed  of  performance  is  simulated. 
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Each  member  of  the  simulated  crew  is  initially  assigned  a value  to  repre- 
sent his  normal  working  pace,  PACE(M).  The  assignment  is  made  by  the  com- 
puter, through  random  draw  from  a normal  distribution  of  values  with  a mean 
equal  to  the  input  parameter  Average  Crew  Pace,  ACP,  and  standard  deviation  of 
0.  11.  The  concepts  reflected  in  this  distribution  are  establishment  of  unity  as  the 
"normal  working  pace11  in  the  general  population,  and  expressing  variations  from 
the  norm  in  such  a way  as  to  satisfy  a 2:1  ratio  between  the  characteristic  paces 
of  the  slowest  operator  and  the  fastest.  From  the  distribution  described  above,  an 
extremely  slow  worker  would  be  represented  by  a value  in  the  realm  of  three  stand- 
ard deviations  above  the  mean,  or  PACE(M)  = 1.  33,  an  extremely  rapid  worker  by 
a value  in  the  realm  of  three  standard  deviations  below  the  mean,  or  PACE(M)  = 

0.  67,  a very  close  approximation  to  2:1.  Such  a range  of  differences,  although 
seemingly  large,  is  consistent  with  fairly  fundamental  psychological  observations; 
for  example,  "Wechsler  shows  that  the  range  of  most  physical  and  mental  activities 
vary  as  2 to  1.  . . [ Barnes,  1954,  p.  353,  in  reference  to  one  of  David  Wechsler's 
(1935)  early  works]  . " 

A value  for  the  pace  of  the  group  on  each  variable  time  event  (GPACE)  is 
calculated  as  the  average  of  the  pace  values  for  the  men  in  the  group.  The  purpose 
of  the  pace  variable  then  is  to  influence  the  time  worked  by  a group  on  each  simu- 
lated variable  time  event.  Ignoring  other  factors  for  the  moment,  it  is  desired  that 
a slower  group  (say  one  with  a group  pace  value  1.  1)  would  take  ten  per  cent  longer 
than  nominal  and  a faster  group,  with  pace  value  of  0.  75,  would  perform  the  task 
in  three-fourths  of  its  nominal  execution  time,  plus  or  minus  the  stochastic  effect. 
Thus,  the  group  pace  value  functions  in  the  model  as  a multiplicative  modifier  of 
the  execution  time  assigned. 

Fatigue  affects  the  speed  of  task  performance  as  well  as  the  quality  of  per- 
formance (Ghiselli  & Brown,  1955,  p.  249).  Its  influence  on  quality  has  been  de- 
scribed and  its  influence  on  speed  is  represented  in  a very  similar  way.  The  read- 
er will  recall  that  fatigue  builds  as  a function  of  the  amount  of  time  since  the  oper- 
ator last  slept,  and  as  a function  of  tasks  performed  in  that  interval.  After  each 
event,  a current  fatigue  level  is  calculated  and,  via  the  physical  capability  vari- 
able, is  employed  to  alter  the  operator’s  existing  pace  value.  The  nature  of  the 
alteration  is  to  increase  pace  values  with  the  buildup  of  fatigue  (decrease  in  physi- 
cal capability),  thus  rendering  more  slow  the  execution  time  for  subsequent  work 
as  the  operator  becomes  more  tired. 
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Group  Pace  Calculations 

In  the  simulation,  the  work  speed  of  the  group  for  an  event,  termed  its 
pace,  is  determined  as  the  product  of  three  factors.  The  primary  influence  is 
the  average  of  the  individual  pace  values,  PACE(M),  of  the  men  assigned  to  the 
event.  The  second  is  the  pace  adjustment  factor  just  discussed  and  shown  in  Fig- 
ure 2-6.  The  third,  called  the  slowness  factor,  SF,  is  dependent  on  the  value  of 
physical  capability,  PCC(M),  of  each  group  member,  as  shown  in  Figure  2-7. 

This  figure  indicates  no  effect  on  operator  speed  for  an  average,  PCC(M)  1 val- 
ue, but  that  operator  speed  is  halved  when  physical  capability  is  completely  de- 
graded and  doubled  when  PCC(M)  reaches  a maximum  limit  value  of  2.  Thus,  fa- 
tigue, sleep,  and  overexertion  elements  enter  the  pace  computation  which,  in  turn, 
influences  performance  time. 


PHYSICAL  CAPABILITY  PCC(M) 

DEGRADED  ► ENHANCED 

CAPABILITY  CAPABILITY 


Figure  2-7.  Determination  of  slowness  factor. 
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Even!  Performance  Time 


Three  factors  comprise  the  performance  time,  PT(IE),  calculation  for 
scheduled  events.  The  first  is  a value,  V,  selected  from  the  normal  distribution 
with  mean,  ADUR(IE),  and  standard  deviation,  ASD(IE),  both  given  as  input.  The 
second  factor  is  ZIJ.  The  group  stress  and  group  stress  threshold  influence  the 
ZIJ  value  and  thence  performance  time,  as  shown  in  Figure  2-8. 


GROUP  STRESS,  GSTR 


Figure  2-8.  Stress  effect. 


The  result  is  a value,  ZIJ,  which  is  a multiplicative  factor  for  V in  the  determina- 
tion of  performance  time.  The  third  factor  entering  this  calculation  is  the  group 
pace  value,  GPACE,  just  discussed.  Thus,  performance  time  is  calculated  as: 
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I(V)(ZIJ)(GPACE) 

GPACE  [V (2GSTR-GSTRM  + 

GPACE  [3V  - ADUR(IE)] 


if  GSTR  < GSTRM 

1 - ADUR(IE)  • (GSTR  - GSTRM)] 
if  GSTRM  < GSTR  < GSTRM  + 1 

if  GSTR  > GSTRM  + 1 


and  is  limited  to  lie  between  0 and  4 ADUR(IE). 


A modified  calculation  for  V is  employed  for  repair  events.  In  studies 
which  pay  particular  attention  to  repair  time,  it  is  conventional  to  assume  a log- 
arithmic normal  distribution.  This  gives  a probability  density  function  that  rises 
steeply  for  small  values  and  is  less  accentuated  for  large  values  as  shown  belowt 


Then,  In  t is  normally  distributed.  The  difference  from  normal  distribution  is 
that  the  program  generates  a random  value  of  In  t from  a normal  distribution  and 
then  the  exponential  of  this  value  of  In  t is  the  random  value  of  t. 
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The  following  describes  the  computation  involved  in  choosing  appropriate 
values  of  mean  and  standard  deviation.  If  y = In  x is  normally  distributed  with  a 
mean  p and  standard  deviation  cr,  then  x will  have  mean  £ 


t = 


n + O’2/ 2 

e 


and  variance: 


i.  e.  , 


1) 


ADUR(IETY)=:  & 
TEM  3 = o* 

ASD(IETY)  = o- 


mean  of  logarithm  of  repair  time 
mean  of  repair  time 

standard  deviation  of  logarithm  of  repair  time 
standard  deviation  of  repair  time 


Solving  the  above  equations  fo r fj  and  cr  by  algebraic  step  we  determine: 


TEM  1 


and  determine  n by: 


TEM  2 


e 


1 

2 


Then  m and  o*  are  used  with  normal  random  deviate  intrinsic  function, 
and  exponential  of  this  result  is  the  random  repair  time. 
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In  FORTRAN  notation; 


TEM1 


[ASD(IETY)12 
+ [ADUR(IETY)]2 


TEM  2 = ADUROETY)  = 

V TEM  1 VTEM  1 

TEM  3 = Vln  TEM  1 <r 

Then; 

„ (In  TEM  2 + RD  VlnTEMl  ) 

which  is  used  only  for  repair  events. 

Following  determination  of  event  performance  time,  the  time  of  day  at 
which  the  event  was  completed,  ZC(IE),  is  calculated  as  event  start  time  plus 
performance  time  = Z2  + PT(IE).  If  completion  time  is  later  (larger)  than  the 
time  limit  for  the  event,  TL(IE),  given  as  input,  then  the  event  is  assumed  to 
last  only  until  TL(IE),  i.  e. , ZC(IE)  = TL(IE)  and  PT(IE)  = TL(IE)  - Z2(IE). 
The  balance  of  the  unworked  time  is  tallied  as  unmanned  station  hours,  USH. 

If  the  event  time  exceeds  24,  then  PT  24  -Z2  so  that  no  events  will 
carry  over  to  the  next  day.  In  this  case,  ZC  = 24. 
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Ev  e n t Bo  o k k v e p i n £ 


Beginning  with  circle  g in  the  flow  chart,  a variety  of  additional  event 
bookkeeping  calculations  are  completed  based  upon  availability  of  the  value  of 
performance  time. 

First,  for  each  equipment  used  in  the  event  the  cumulative  equipment  up 
time  and  down  time  (for  the  current  day)  are  revised.  For  scheduled  and  emer- 
gency events  (in  which  equipment  is  assumed  operational)  up  time  for  each  equip- 
ment is  simply: 


CUT  (IQ)  - CUT(IQ)  + PT(IE) 


For  each  repair  event,  the  duration  of  which  is  assumed  to  represent  an  equipment 
inoperability  period,  cumulative  equipment  down  time  is  : 

CDT(IQ)  CDT(IQ)  + PT(IE) 


A sum  of  actual  repair  times  (event  times  for  repair  events)  is  maintained  for  each 
equipment  as: 

CART(IQ)  CA  RT(IQ)  + ADUR(IE) 


Next,  performance  level,  the  equivalent  of  MTBF,  is  calculated  for  each 
equipment  as: 


EPL(IQ) 


CUT(IQ) 

CUT  (IQ)  + CDT(IQ) 


The  time  since  last  sleep,  HSLS(M),  is  augmented  for  each  working  group 
member  by  adding  the  performance  time  for  the  event.  Then  the  tally  of  time 
worked  for  the  day,  for  each  group  member,  TW(M),  is  revised,  and  the  last  time 
of  day  worked,  Z(M),  is  set,  for  each  group  member,  equal  to  the  event  comple- 
tion time,  ZC(IE).  Then  the  number  of  calories  expended  on  this  event  by  each 
man,  CCAL(M),  is  calculated  to  be  equiprobable  between  0.  95  and  1.  05  times  the 
product  of  IEC(IE,  NT)  and  PT(IE).  Next,  the  total  number  of  calories  expended 
since  last  sleep,  ACAL(M),  is  adjusted  by  adding  a current  event  calorie  value, 
CCAL(M).  The  CCAL(M)  value  is  also  used  in  accumulating  the  tally  of  calories 
expended  by  each  group  member  for  the  current  day,  IDC(M). 

Next,  the  crew  mental  load  is  cumulated  in  load-time  units.  Given  the 
mental  load  code,  LODM(IE),  which  specifies  the  graduated  load  scale  and  which 
applies  during  the  period  of  event  performance,  PT(IE),  the  value  LODM(IE)*  PT(IE)# 
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is  added  to  prior  values  to  summarize  current  crew  mental  load  units. 

Similarly,  the  event  hazard  class  code  IH(IE)  is  multiplied  by  PT(IE)  to  pro- 
vide a measure  of  hazard  units,  EH,  accumulated  as  TEH  for  later  calculation  of 
the  safety  index  on  a daily  basis. 


Performance  Adequacy 


Having  determined  the  values  for  all  of  the  variables  affecting  the  perform- 
ance of  the  event,  the  adequacy  of  the  performance  may  now  be  determined.  The 
following  four  variables  are  considered  for  each  man  in  the  group  associated  with 
the  performance  of  the  event: 


Variable Range  of  Values 


stress 

1-5 

competence 

0-1 

physical  capability 

0-2 

aspiration 

0-1 

With  each  of  these  variables,  the  model  associates  a function  for  the  work 
group  which  varies  from  0-1,  in  which  unity  represents  perfection.  These  four 
functions  are  then  combined  to  obtain  an  overall  measure  of  how  well  the  group  per- 
formed. The  function  for  effectivity  (goodness)  of  stress  is  given  below  and  shown 
in  Figure  2-9. 


ES 


(l-BE)GSTR 
GSTRM-1.  0 

5-GSTR 

5-GSTRM 


0 


if  GSTR  < GSTRM 


if  GSTRM  < GSTR  < 5 
if  GSTR  > 5 
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Effectivity 

of 

Stress,  ES 


0 


L 

1 GSTRM  5 

Group  Stress,  GSTR 


Figure  2-9.  Stress  effectivity. 


The  effectivity  function  for  competence,  EC,  utilizes  the  values  of  crew 
member  competence,  TPCOM(M),  previously  degraded  as  a function  of  sea  state 
and  provides  for  added  weight  to  be  given  to  the  competence  of  the  leader, 
TPCOM(LI),  as  shown  below: 


EC 


(2rTPCOM(LI)l  + STPCOM(M)) 
IG  + 2 


Here,  the  summation  is  taken  over  all  members  of  the  group.  This  represents 
an  average  competence  value  for  the  group  in  which  the  leader's  competence  has 
been  given  two  extra  weighted  shares.  In  the  determination,  TPCOM(M)  is  se- 
lected as  either  the  competence  in  the  primary  specialty,  TPCOM(M),  or  in  the 
secondary  competence,  TSCOM(M),  depending  upon  the  actual  assignment  of  the 
men  during  the  event. 


In  the  situation  of  a repeat  (second  try)  of  an  event  due  to  failure  to  per- 
form satisfactorily  the  first  time,  0.  2 is  added  to  EC  on  the'  repeat  to  simulate  a 
short  term  increase  in  the  effectivity  for  group  competence.  This  increase  is  jus- 
tified since  the  group  has  worked  recently  together  and  has  had  the  benefit  of  im- 
mediate experience. 

The  effectivity  for  the  physical  capability,  EF,  is  set  equal  to  the  group 
physical  capability  value  itself,  GPCC,  if  less  than  one,  and  is  set  equal  to  unity 
if  GPSS  exceeds  unity. 

The  fourth  and  last  function  is  the  effectivity  of  aspiration,  EA.  It  is  treat- 
ed like  competence,  with  the  leadership  aspiration  receiving  extra  weight,  as  fol- 
lows: 


EA 


(2[CASP(LI)1  + SCASP(M) } 
IG  + 2 


In  order  to  calculate  from  these  four  measures  a single  value  for  perform 
ance  adequacy,  the  following  formula  is  used: 


V3(ES)(EC)+  (ES)(EF)  + (ES)(EA)+  3(EC)(EF)  + 3(EC)(EA)+  (EFMEA) 

12 


which  simplifies  to: 


PA 


V3(EC)(ES+  EF  + EA)  + ES(EF+  EA)  -f  (EF)(EA) 

12 


A potential  degration  in  this  value  of  PA  is  taken  into  consideration  if  the 
current  event  is  either  a repair  or  emergency.  If  such  is  the  case  and  if  the  com- 
puted duration  of  the  event,  PT(IE),  exceeds  the  maximum  (target)  duration  of  that 
event  which  is  provided  as  an  input,  then  PA  is  degraded  by  the  ratio  of  DTR(IQ)/ 
PT(IE)  for  repair  events  or  DTE(K)/  PT(IE)  for  emergencies. 
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invent  Performance  Efficiency 

For  later  use  in  determining  mission  performance  efficiency,  a running 
sum  is  maintained  of  performance  efficiency  values  for  each  event. 


Efficiency  = 


event  essentiality  x performance  adequacy 
performance  acceptability  level 


This  efficiency  function  is  calculated  for  each  event.  It  is,  essentially,  a ratio 
of  actual  event  results  (performance  adequacy  weighted  by  event  essentiality)  to 
the  level  of  performance  acceptable  to  the  supervisor.  The  cumulative  sum  of 
event  performance  efficiencies,  SEF,  is  calculated  as  a function  of  the  perform- 
ance adequacy,  the  event  importance  (essentiality  value),  IESS(IE),  the  leader’s 
aspiration,  CASP(LI),  and  the  constant,  K7,  which  indicates  the  level  of  accept- 
able performance,  described  below,  as  follows: 


SEF 


PA  • IESS(IE) 
CASP(LI)  • K7 


Also,  a similar  running  sum  of  event  essentiality  values,  ISIE,  is  maintained  for 
the  day, 

Itrra)  rulal  ion  of  ICC(M)  and  FAT(M) 


The  values  of  physical  capability  and  time  fatigue  are  now  adjusted  in  the 
same  manner  as  was  described  previously  for  each  group  member  who  participated 
in  the  event  simulated.  The  prior  calculation  is  required  only  if  there  was  a time 
interval  between  the  prior  event  and  the  current  event.  However,  the  calculation  is 
not  required  in  every  case.  It  represents  an  updating  of  values  as  a result  of  time 
worked  on  the  current  event,  TW(IE),  and  the  new  values  represent  the  situation  at 
the  end  of  the  current  event.  The  fatigue,  FAT(M),  the  physical  capability  of  each 
man  in  the  group,  PCC(M),  and  the  group  physical  capability,  GPCC,  are  calculated 
as  previously  described. 


Adjustment  of  Co  n s u m u h 1 os 

The  revised  level  of  consumables  available  is  determined  next.  First,  the 
actual  amount  of  consumables  expended  is  calculated  either  as  a function  of  event 
performance  time  and  expenditure  rate  or  on  a unit  expenditures  basis.  Then  prior 
values  of  the  L consumables,  KON(L),  are  adjusted  to  account  for  consumption  dur- 
ing the  event. 
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Since  the  rate  of  expenditures  for  some  events  is  more  logically  given  in 
terms  of  usage  units  per  event  rather  than  per  hour,  the  logic  of  the  model  con- 
siders both  types  of  expenditures  independently.  Accordingly,  for  "unit"  events 
the  current  level  of  expenditures,  KONCl(Ll)  is: 

KONCl(Ll)  = KONCl(Ll)-  IRCl(Ll) 


where  IRC  (LI)  is  the  number  of  units  expended  per  event. 

For  events  in  which  expenditures  are  accounted  in  terms  of  units  per  hour, 
the  corresponding  effect  is  accomplished  by  multiplying  the  rate  of  expenditure  of 
each  consumable  by  the  duration  of  the  event  and  cumulatively  subtracting  the  prod- 
uct from  current  values  for  each  consumable: 

KONC(L)  = KONC(L)  - IRC(L,  IET)  • PT(IE) 

Event  Success  or  Failure  Determination 

Performance  adequacy,  just  calculated,  is  an  important  element  in  deter- 
mining the  success  or  failure  of  the  performance  of  an  event.  An  initial  estimate 
of  a criteria  for  success  might  be  whenever  performance  equals  or  exceeds  the 
leader's  expectation,  i.  e. , when  PA  > CASP(  LI).  However,  it  must  be  conceded 
that  a team's  leader  will  be  willing  to  accept  "something  less"  than  his  own  per- 
formance aspiration  vaLue  as  constituting  acceptable  performance  for  a group  of 
his  peers  or  subordinates.  Thus,  the  model  uses  the  constant  K7  for  this  "some- 
thing less"  and  defines  an  event  to  be  successful  whenever: 

PA  > [CASP(LI)]K7. 


Performance  Level 

After  determining  performance  adequacy,  the  model  increases  by  one  the 
tally  of  the  number  of  successes  or  failures,  as  appropriate  for  each  man  who 
worked  on  the  event.  These  tallies  are  NOSUC(M)  and  NOFAIL(M)  and  are  accumu- 
lated over  the  entire  mission  iteration.  A new  performance  value,  PERF(M),  for 
each  man  who  worked  on  the  event  is  now  determined  as  the  ratio  of  the  number  of 
successes  to  all  events  in  which  he  has  participated. 
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Event  Results  Recording 

Next,  the  results  of  a single  completed  event  are  optionally  recorded  for 
later  printing.  If  the  option  to  record  detailed  event  results  is  taken  (print  option  5, 
IND(5)  =1),  the  results  are  recorded  and  printed  for  analysis.  Included  in  the 
printout  are  the  following  results  for  each  event;  successful/unsuccessful,  men 
available,  start  time  allowed,  prior  event  requirements  time  finished,  event  start 
time,  event  duration,  event  end  time,  unmanned  hours,  group  stress,  physical  cap- 
ability, pace,  aspiration,  performance  adequacy,  hazard,  consumables  used  and 
remaining,  men  on  the  job,  and  each  man’s  fatigue,  physical  capacity,  hours  work- 
ed (cumulative),  calories  expended  on  this  task,  calories  expended  (cumulative) 
hours  since  sleep,  idle  hours,  hours  slept,  cumulative  performance,  and  aspira- 
tion, as  shown  in  Figure  2-10. 

The  printout  for  each  event  performed  is  concluded  with  data  on  each  man 
who  was  assigned  to  the  event.  Here,  an  asterisk  in  the  LDR  column  identifies  the 
work  group  leader. 


Fa  i I u r e Processing 


In  the  case  of  an  event  which  is  unsatisfactorily  performed,  the  repeat-touch- 
up  code,  R/TIHIE),  of  the  input  data  determines  whether  the  entire  event  is  to  be 
resimulated  (repeated)  or  whether  it  is  to  be  partially  redone  (touched  up).  If  the 
event  is  coded  as  1 (repeat),  a second  try  is  accomplished  by  returning  to  circle  g 
in  the  processing  flow  chart.  Only  one  such  repetition  is  allowed  for  any  event  oc- 
currence. If  the  second  attempt  is  also  unsatisfactory,  the  processing  continues  at 
circle  h. 

If  the  event  is  coded  as  2 (touchup),  a second  try  is  simulated  during  which 
the  performance  time  is  set  equal  to  one-half  of  the  value  of  the  performance  time 
previously  calculated.  Again,  second  try  processing  begins  at  circle  g. 

If  the  failure  processing  code  is  a 3 (no  repetition  permitted),  the  processing 
continues  at  circle  h,  and  the  processing  is  the  same  as  that  which  takes  place  after 
a task  repetition  or  touchup. 


In  d - o f - Day  Processing 

Then,  at  circle  h of  the  model  flow  chart,  a check  is  made  to  determine 
whether  or  not  the  current  event  being  simulated  represents  the  last  event  of  the 
day.  If  the  event  which  has  just  been  simulated  is  not  the  last  event  of  the  day, 
then  the  next  event  is  selected  as  a function  of  the  pointer  and  the  probability  of 
each  of  the  three  alternative  paths,  PRB(IE,  IA),  given  as  input  data.  The  pro- 
cessing returns  to  circle  d to  begin  the  simulation  of  the  next  event  in  turn. 
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If  the  event  just  simulated  is,  in  fact,  the  last  one  of  the  day,  then  the 
computations  continue  with  the  determination  and  summarization  of  several  end- 
of-day  conditions.  These  are: 


average  physical  workload 

APW(M) 

each  man 

primary  competence 

PCOM(M) 

each  man 

current  crew  competence 

CCC 

crew 

physical  incapacity 

PI 

each  man 

safety  index 

SI 

crew 

crew  mental  load 

CML 

crew 

average  equipment  performance  level 

AEPL 

crew 

equipment  performance  efficiency 

EPEFF 

equipments 

system  performance  efficiency 

PEFF 

system 

system  reliability  level 

SRL, 

system 

system  performance  level 

SPL 

system 

system  global  effectiveness  measure 

SGEM 

system 

Average  Physical  Workload 

As  a measure  of  under/over  exertion  for  each  man  in  the  crew,  the  value  of 
average  physical  workload,  APW(M),  is  calculated.  It  is  determined  for  each  crew 
member  as  follows: 


APW(M)  = 


calories  expended  during  day's  work  no.  of  hours  worked 

calories  per  this  man’s  average  day  no.  of  hours  in  average  workday 


IDC(M)  TW(M) 
CAL(M)  X WORK  1 


This  variable  provides  a measure  of  load  on  personnel,  and  in  that  regard  may  be 
partially  redundant  with  the  unadjusted  number  of  hours  worked  each  day. 


ko mpcience  Upgrading 

To  implement  crew  learning  in  the  course  of  a simulated  mission,  the  logic 
calls  for  increases  in  primary  competence  on  a daily  basis  for  each  crew  member 
whose  competence  in  his  primary  specialty  is  less  than  his  current  aspiration.  The 
mission  is  assumed  to  be  sufficiently  short  so  that  no  degradation  of  competence 
occurs  in  an  unused  skill,  and  it  is  assumed  that  failure  in  performing  an  event 
does  not  degrade  competence. 
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The  competence  upgrading  scheme  is  based  on  the  work  of  DeJong  (1957) 
and  of  Crossman  (1959).  Of  particular  importance  was  the  work  of  Blackman 
(1936)  and  Crossman  (1956),  which  indicated  that  performance  proficiency  (here 
termed  competence)  on  a given  task  (event)  continued  to  increase  even  after  10,  000 
"trials.  11 


In  updating  TPCOM(M)  at  the  end  of  each  day  for  man  M,  the  following  for- 
mula was  developed: 


TPCOM(M)  = PCOM(M)  + [CASP(M)  - TPCOM(M)] NU(M)[0.  001 7] 


where  NU(M)  is  the  number  of  successful  events  participated  in  by  man  M on  day 
ND.  The  constant,  0.  0017,  was  determined  by  the  condition  that  in  30  days, 
PCOM(M)  shall  not  increase  by  more  than  0.  1 from  an  initial  value  of  0.  75,  based 
upon  80  events  per  day  for  a given  M with  a maximum  value  of  unity  for  CASP(M) 
representing  optimum  aspiration. 

Table  2-3  gives  results  for  PCOM(M)  for  the  constant  selected: 


Table  2-3 

Maximum  TPCOM  after  Various  Numbers  of  Days 


Number  of  Days 

PCOM(M) 

0 

. 7500 

10 

. 7892 

20 

. 8222 

30 

. 85005 

50 

. 89335 

100 

. 9545 

200 

. 9917 

After  a new  value  of  primary  competence  that  has  been  calculated  for 
each  man  in  the  crew,  a current  crew  competence,  CCC,  is  determined  as  the 
average  of  the  individual  values. 


End-of-Day  Performance  Measures 

Table  2-4  presents  a summary  of  the  end-of-day  measures  calculated  to 
summarize  human,  equipment  and  system  performance. 
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Table  2-4 


End-of-Day  Performance  Measures 


Type  of  Measure  Variables  Calculated  and  Their  Frequency 


Human  Reliability 

Performance  = PERF(M) 

(each  man,  each  event) 

i System  ReliabUity  Level  = SRL 

Equipment  Reliability 

Equipment  Performance  Level  * EPLQQ) 

(each  day) 

(availability) 

(each  equipment,  each  event) 

} Global  System  Effectiveness 

Human  "Performance  Adequacy" 

Performance  Adequacy  = PA  (IE) 

Measure  = GEM 

Performance  Efficiency  = PEFF 

l (each  day) 

(each  event) 

System  Performance  Level=  SPL 
(each  day) 

Equipment  Performance  Adequacy 

Equipment  Performance  Efficiency  * EPEFF 

(each  event) 

To  recognize  the  importance  of  equipment  performance  in  the  total  mis- 
sion effectiveness  measures,  two  values  are  calculated  at  the  end  of  each  simu- 
lated mission  day.  This  serves  to  quantify  how  well  the  shipfs  equipment  perform- 
ed during  the  day.  The  first  such  measure,  the  average  equipment  performance 
level,  AEPL,  is  merely  the  average  of  EPL  values  taken  over  all  equipments. 

The  second  is  the  equipment  performance  efficiency,  EPEFF,  calculated  as  AEPL 
times  the  ratio  of  the  sum  of  average  repair  duration  input  data  value,  ADUR(IET), 
for  the  day’s  repair  events  to  the  sum  of  actual  repair  times  for  these  same  events. 
As  such,  it  represents  a measure  of  equipment  performance  based  on  simulated 
repairs  each  day. 

Next,  the  human  performance  efficiency  for  the  simulated  day  is  calculated. 
It  is  the  sum  of  three  factors.  The  first  and  most  basic  is  the  ratio: 

sum  of  event  performance  efficiency  values  = SEF 
sum  of  event  essentiality  values  = ISIE 


This  factor  then  measures  the  effect  of  performance  adequacy,  leader’s  aspiration, 
and  K7  values  over  the  events  performed  for  the  day.  The  second  is  a factor  which 
measures  degradation  due  to  the  total  amount  of  unmanned  station  hours  for  the 
day  normalized  by  dividing  by  the  total  number  of  crew  working  hours: 

USHT 

’ (IC)(WORKl) 


The  last  factor  is  a degradation  of  human  performance  efficiency  due  to  the  extent 
to  which  events  were  ignored. 


NIGR 

NTE 


where  NIGR  is  the  number  of  events  ignored  and  NTE  is  the  total  number  of  events 
simulated  during  the  day. 

In  order  to  calculate  system  reliability  level,  SRL,  combining  both  human 
and  equipment  reliability  measures,  the  range  of  variation  of  each  was  normalized. 
Here,  it  was  assumed  that  the  average  performance  over  all  men  in  the  crew  would 
be  in  a range  from  0.  65  to  1.  0,  i.  e. , 

IC 

0.  65  < X = 2 PERF(M)  < 1.  0. 

M-l 


This  range  of  values  and  the  values  for  the  equipment  reliability  range  were  select- 
ed initially  on  the  basis  of  judgment  as  to  anticipated  results  from  the  model.  How- 
ever, additional  experience  is  required  to  confirm  them  and,  therefore,  they  are 
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subject  to  change.  It  is  anticipated  that  such  change  will  be  implemented  to  allow 
a wider  range  for  equipment  (hardware)  reliability.  Then,  a new  value,  X'  = 

X - 0.  65/1-0.  65,  was  defined  whose  range,  based  on  X,  would  be  from  0 to  1. 
Similarly,  on  the  basis  of  an  estimation  that  the  variable  AEPL,  average  equip- 
ment performance  level,  would  lie  in  the  range  from  0.  9 to  1.  0,  i.  e. , 0.  9 < Y = 
AEPL  < 1.  0,  a new  variable  Y’  = Y - 0.  9/1  - 0.  9 was  defined.  This  variable  is 
based  on  Y,  whose  range  would  be  the  same  as  that  of  XL  What  is  desired  is  the 
combination  of  X and  Y in  such  a way  that  the  result,  SRL,  would  be  expected  to 
lie  in  the  selected  range  0.  7 to  1.  A concave  relationship  was  selected  for  the 
combination: 

Z'  = X'  • Y' 


Then,  converting  Z1  by  linear  scaling  we  have: 

Z = 0.  7+  Z'(l  -0.  7) 


Thus,  Z'  will  vary  between  0 and  1 when  Z varies  between  0.  7 and  1.  0,  and  to  ob- 
tain Z,  we  have: 


Z = SRL  = 0.  7+  (X*  • Y')(l  -0.  7) 
SRL  = 0.7  + 8.  571  (X  - 0.  65)(Y  - 0.9). 


A corresponding  treatment  was  given  in  the  calculation  of  system  perform- 
ance level,  SPL,  from  PEFF  and  EPEFF: 

SPL  = 0.  7 + 8.  571  (PEFF  - 0.  65)(EPEFF-  0.  9). 


To  combine  SRL  and  SPL,  each  of  which  varies  from  0.  7 to  1.  0,  a convex 
treatment  was  selected.  This  combinatorial  technique  is  also  subject  to  revision. 
Here  we  let: 


SPL  = P' 


P-  0.  7 
1 -0.  7 


SRL  = Q' 


Q - 0.  7 
1 - 0.  7 


R' 


(P1)2  + (Q1  )2~ 


(It  is  noted  that  SPL  and  SRL  are  figures  of  merit  or  "scores"  calculated  on  a known 
but  arbitrary  scale.  They  are  not  probabilities  as  such.  ) 
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Then,  the  combination  of  SRL  and  SPL,  called  general  system  measure, 

equals: 


SGEM  = R = 0.  7 + Rf  (1  - 0.  7) 

0 7 + y (SRL  -0.7)2  + (SPL-OTT? 


This  measure,  like  SRL  and  SPL,  is  a ’’figure  of  merit”  or  ’’index  of  effectiveness” 
rather  than  a probability  measure.  Further  work  is  anticipated  relative  to  the  re- 
finement of  a total  effectiveness  measure. 


Physical  Incapacity 

Except  on  the  last  day  of  the  mission,  the  calculation  of  physical  capability 
is  now  performed  again  in  the  same  way  as  described  above  under  the  heading  ”Crew 
Formation  and  Initial  Value  Selection.  ” Here,  again,  at  the  end  of  each  day  of  the 
mission  (except  the  last),  a determination  is  made  regarding  which  crew  members 
are  to  be  simulated  as  degraded  (sick)  and,  if  so,  how  much,  and  for  how  many 
days.  The  only  added  processing  required  at  the  end  of  the  day  is  the  bookkeeping 
to  reduce  the  duration  of  the  incapacity,  PI2(M),  by  one  day  for  each  man  already 
incapacitated.  If  PI2(M)=  0,  indicating  that  crew  member  M was  not  incapacitated 
in  the  preceding  day,  then  PI(M)  = 1.  0.  If  PI2(M)  > 1,  indicating  the  duration  of  the 
crew  member's  incapacitation,  then  PI2(M)  is  decreased  by  unity  and  his  incapacity 
level  is  indicated  by  PI(M). 


Safety  Index 


Another  end-of-day  processing  calculation  is  the  determination  of  a safety 
index,  SI,  for  the  crew.  This  index  is  formed  as  a function  of  the  event  hazard 
codes  assigned  to  events  performed  during  the  day  and  of  the  length  of  time  spent 
in  each  of  these  hazard  classifications.  A safety  index  of  unity  is  optimum,  that  is, 
minimum  hazard  conditions  possible;  a safety  index  value  of  zero  indicates  the 
worst  possible  hazard  conditions. 

The  event  hazard  values  for  all  events  of  the  day  are  cumulated  and  called 
total  event  hazard,  TEH.  This  value  is  then  divided  by  the  total  maximum  possible 
value  for  the  daily  event  hazard.  The  ratio  is  called  the  hazard  ratio: 


total  event  hazard  for  day 

maximum  possible  hazard  for  day 

TEH 

9(THW) 

IC 

where  THW,  the  total  hours  worked,  = 2 TW(M). 

M-l 
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Having  determined  the  hazard  ratio,  the  computer  then  determines  the  safety  in- 
dex as  follows: 


SI  = I'd  - HR). 

o 

This  relationship  is  shown  in  Figure  2-11  and  is  based  on  the  fact  that  event  hazard 
assumes  values  from  1 to  9. 

Thus,  the  index  equals  zero  when  all  event  time  is  spent  in  a maximum  haz- 
ard condition  and  equals  unity  when  all  event  time  is  spent  under  minimally  hazard- 
ous conditions. 


Figure  2-11.  Safety  index. 
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A revised  scaling  of  crew  mental  load  is  accomplished  so  as  to  be  consis- 
tent with  0 to  1 scaling  used  for  the  physical  load  variable: 


CML 


CML 

9(THW) 


End -of- Day  Sleep 

At  the  completion  of  the  processing  of  all  events  for  the  day  and  various  end- 
of-day  calculations,  the  model  determines  the  end-of-day  sleep  requirement  and  the 
corresponding  fatigue  level  for  each  man.  Prior  to  simulating  each  event,  the  mod- 
el checks  to  determine  if  conditions  permit  the  selected  crew  members  to  sleep  be- 
tween the  current  and  their  prior  work  event  (these  conditions  are  time  available, 
catnap  time  threshold,  and  fatigue  level  threshold).  Thus,  the  program  provides 
for  operators  taking  their  sleep  periods  during  the  24  hour  days,  as  conditions  per- 
mit. 


Since  conditions  may  permit  additional  sleep  at  the  conclusion  of  all  work  for 
the  day,  the  processing  logic  provides  for  determining  the  end-of-day  sleep  status 
for  all  crew  members.  This  process  determines  how  much  sleep  each  man  should 
have  between  the  last  time  worked,  Z(M),  and  the  day’s  end,  24.  0 hours.  If  the 
time  available  for  sleep,  24-Z(M),  exceeds  the  parameter  CN  + 0.  5,  and  if  the 
crew  member  has  not  had  his  full  quota  of  sleep  for  the  day,  MAXSL,  then  a sleep 
period  is  simulated  by  calculating  sleep  duration  (limited  to  MAXSL).  As  the  re- 
sult of  this  sleep,  new  values  are  generated  for  time  fatigue  (reduced  due  to  sleep 
relief),  hours  since  last  sleep,  HSLS(M),  and  a physical  capability,  PCC(M),  all  ef- 
fective at  the  start  of  the  next  day. 


End-of-Day  Recording 

The  basic  computations  completed,  processing  now  turns  to  reporting  of  re- 
sults. If  print  Option  6 has  been  taken,  the  summarized  results  of  the  day  just  sim- 
ulated are  recorded  for  printout  on  the  computer’s  high  speed  line  printer.  Fig- 
ure 2-12  shows  a sample  tabulation.  The  first  section  provides  summarized  event 
and  status  information  for  the  overall  crew  performance.  Most  of  the  headings 
shown  are  self  explanatory.  All  times  are  given  in  hours.  The  AVG  PERF  ADEQ 
(average  performance  adequacy,  third  line)  is  a mean  of  the  performance  adequacy 
value  of  all  events  performed.  The  AVG  FAIL  DIFF  (average  failure  difference)  is 
a mean,  taken  only  for  failed  events,  indicating  the  difference  between  performance 
adequacy,  (PA),  and  the  required  performance  level,  CASP(LI)*  K7.  The  second 
section  shows  important  data  summarized  by  man.  These  results  are  either  totals 
for  all  daily  activity  (hours  worked,  slept,  idle,  number  of  events  successfully  per- 
formed), or  represent  end-of-day  conditions  (fatigue,  aspiration,  competence). 
Averages  for  all  of  the  elements  in  the  second  section  follow  the  individual  crew 
member  summaries  and  represent  daily  summaries  for  simulated  variables  for  the 
day. 
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REPORT  FOR  PAY  1,  ITERATION  i 

HO,  EVENTS--TOTAL  35  SCHfcPULEQ  10  HfcP*|R  19  EMERGENCY  2 RF  KF  A T 5 9 SUCCESSES  13  FAILURES  la  IGNORES  4 

HOURS  FORKED TOTAL  92 i 7 SC^EOULED  S5,2  RbPAIH  21, a £M£r , 15,9  UNMANNED  89,6  AVG  PEHF  ADEO  0‘, 90  AVG  FAIL  PJFF  0,072 
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,1 
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2ND  TRY 
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LOAD 

0,13 
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Figure  2-12.  Sample  end-of-dav  recording, 


Summarized  are:  the  total  number  of  events  scheduled,  events  worked,  re- 
pair events,  emergency  events,  repeated  events,  successes,  failures,  and  ignores, 
total  hours  worked,  time  spent  on  scheduled  and  repair  and  emergency  events,  un- 
manned station  hours,  average  performance  adequacy,  average  failure  difference 
percentage  of  tasks  failed  and  succeeded  on  first  try,  percentage  of  tasks  succeeded 
on  second  try,  and  percentage  of  tasks  ignored  and  repeated.  Also,  presented  are: 
the  safety  index,  competence  increase,  confidence,  hazard,  consumable  balances, 
maximum  stress  and  on  which  event,  maximum  mental  load  and  on  which  event, 
maximum  calories  expended  and  on  which  event.  A summary  table  is  presented 
including  for  each  man  his  physical  capacity,  hours  worked  in  primary  specialty, 
hours  worked  in  secondary  specialty,  hours  slept,  hours  idle,  fatigue  level,  health 
index,  average  physical  workload,  competence,  aspiration,  performance  (cumula- 
tive) and  number  of  successes.  Each  of  these  variables  is  also  averaged  across  the 
entire  crew.  A summary  table  of  these  variables  is  also  presented  by  type  of  man. 

Eleven  reliability  related  variables  are  also  summarized  in  the  end-of-day 
printout.  These  are:  average  equipment  performance  level  (AEPL),  equipment  per- 
formance effectiveness  (EPEFF),  equipment  mean  time  between  failures  (EMTBF), 
equipment  mean  time  to  repair  (EMTTR),  system  reliability  level  (SRL),  system 
performance  level  (SPS),  system  general  effectiveness  (SGEM),  and,  for  each 
equipment,  equipment  performance  level  (EPL),  current  average  repairtime  (CART), 
current  down  time  (CDT),  and  current  up  time  (CUT). 

These  same  items  are  given  in  the  third  section  of  the  end  of  day  recording 
as  a mean  by  type  of  man,  where  type  is  generally  synonomous  with  work  specialty. 


End-of-Iteration  Summary  Calculations  and  Recordings 

If  the  day  just  simulated  was  not  the  last  day  of  the  mission,  then  the  day 
number,  ND,  is  increased  by  one,  and  the  entire  process  is  repeated  for  the  next 
and  subsequent  mission  day1  s events  by  returning  to  circle  c of  the  model  flow  chart. 

After  the  last  day  has  been  simulated,  several  end -of -iteration  summary  cal- 
culations are  made  and  the  end -of -mission  iteration  record  is  made  for  later  print- 
ing. 


However,  just  prior  to  the  recording,  seven  mission  iteration  human  and 
equipment  reliability  summary  measures  are  calculated  as  shown  by  their  variable 
name  below: 
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Reliability 

Availability 

MTBF 

MTTR 

HUMAN 

HMTBF 

HMTTR 

HAVAIL 

EQUIPMENT 

EMTBF 

EMTTR 

EA  VAIL 

SYSTEM 

- 

- 

SYSAVAIL 

These  data  are  calculated  from  other  available  iteration  summary  values  as 
shown  in  the  flow  chart  at  circle  K,  based  upon  the  basic  definitions  of  MTBF  and 


MTTR  and  AVAIL  = 


MTBF 

MTBF+  MTTR * 


The  resultant  recording  of  iteration  output  is  then  made.  This  recording 
contains  such  summary  items  as:  number  of  events  successful  on  first  and  second 
try,  number  of  events  failed  and  ignored,  average  man  hours  spent  in  primary  spe- 
cialty, in  secondary  specialty,  hours  spent  sleeping  and  hours  idle,  consumables 
remaining,  averages  of  physical  load,  mental  load,  competence,  average  perform- 
ance adequacy,  average  fatigue,  average  aspiration,  average  health,  and  average 
safety.  Each  of  these  variables  is  also  summarized  as  percentage  of  total,  aver- 
age per  day,  or  percentage  of  original,  whichever  is  appropriate.  Summary  by  day 
(including  an  average  across  days)  includes:  number  of  repair  or  emergency  events, 
average  man  hours  spent  doing  repairs  or  handling  emergencies,  maximum  stress, 
maximum  mental  load,  confidence,  hazard,  average  failure  difference,  number  of 
successes  and  unmanned  hours.  A summary  table  by  day  and  man  type  is  provided 
for  the  following  variables:  physical  capability,  hours  spent  on  primary  and  second- 
ary specialties,  sleep  time,  idle  time,  fatigue,  health  index,  average  physical  work 
load,  competence,  aspiration,  cumulative  performance,  and  number  of  successes. 
Averages  for  these  variables  across  types  by  day  are  also  provided  (Figure  2-13). 

Reliability  metrics  provided  at  the  end  of  each  iteration  are  human  mean 
time  between  failure  (HMTBF),  equipment  mean  time  between  failure  (EMTBF),  hu- 
man mean  time  to  repair  (HMTTR),  equipment  mean  time  to  repair  (EMTTR),  human 
availability  (HAVAIL),  and  equipment  availability  (EAVAILL.  A composite  reliabil- 
ity metric  of  system  availability  (SYSAVAIL)  is  also  provided. 

Following  each  such  mission  iteration  of  ND  days,  a check  is  made  to  deter- 
mine whether  all  N mission  iterations  have  been  completed.  If  not,  the  entire  proc- 
ess, as  described,  begins  again  for  the  next  iteration  at  circle  a of  the  flow  chart. 

If  N mission  iterations  have  been  accomplished,  then  the  results  of  all  of  the 
N iterations  are  summarized,  a new  set  of  parameters  is  called  into  the  computer 
and  is  recorded.  The  run  summary  tabulation  output  provides  the  summary  of  each 
and  all  iterations  of  the  run  in  a tabular  form  which  is  similar  to  the  iteration  summary. 

This  entire  process,  then,  results  in  the  simulation  of  N iterations  of  a mis- 
sion for  each  of  several  parameter  sets  and  continues  until  the  computer  has  proc- 
essed all  parameter  sets  provided  as  input. 
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REPORT  TOR  ITERATION  1 Of  1 day  mission... 

Day  NUMBER  PR  EVENTS  AVF,  man  hours  SPENT 

__ SUC1  SUC2_FAIL  IGNORE  prim;  ScCOND  SUfcEP  IDLE 
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Figure  2-13.  Sample  enchofnteration  recording. 


CHAPTER  III 


INITIAL  MODEL  APPLICATION --SENSITIVITY  TESTS 


The  model  described  in  Chapter  II  was  applied  to  a hypothetical  mission. 

The  mission  was  developed  specifically  for  assessing  the  logic  of  the  model1  s out- 
put and  for  obtaining  an  initial  estimate  of  its  internal  validity.  The  mission  was 
general  in  scope  and  involved  typical  work  events  as  found  in  many  Navy  shore 
and  sea  based  systems.  However,  the  mission  was  not  intended  to  reflect  accurate- 
ly any  specific  mission.  Rather,  it  was  developed  to  provide  a basis  for  experi- 
encing and  evaluating  the  model* s internal  structure  and  its  output.  Such  a hypo- 
thetical mission  possesses  advantage  because  certain  model  features  may  be  inade- 
quately tested  in  a usual  mission.  For  example,  emergencies  or  repairs  would  oc- 
cur so  infrequently  that  test  of  features  related  to  these  variables  would  be  insensi- 
tive or  require  an  inordinately  large  number  of  iterations  per  run. 

This  chapter  discusses  the  mission  developed,  the  related  input  data,  and 
the  results  obtained  from  the  sensitivity  test  analysis. 


M i ssion  Ev enls 

The  mission  developed  for  model  sensitivity  test  involved  2 7 events.  These 
were  subdivided  into  10  scheduled  events,  14  repair  events,  and  3 emergency 
events.  All  27  events  could  occur  on  any  given  day  with  stochastic  processes  de- 
termining both  the  actual  events  which  occurred,  as  well  as  their  sequence  of  oc- 
currence. 


Scheduled  Ev cnt s 

The  10  scheduled  events  were  subdivided  into  two  scheduled  event  families 
with  four  and  two  events,  respectively,  and  four  single  events.  Figure  3-1  shows 
a sample  portion  of  the  computer  tabulation  of  the  scheduled  event  input  data.  The 
following  explanation  of  scheduled  event  3 (Figure  3-1)  illustrates  the  meaning  of 
the  data  relative  to  this  event.  Scheduled  event  3 employs  event  type  number  11 
(IETYP  = 11),  uses  the  third  set  of  thresholds  for  units  per  hour  consumable  con- 
sumption (TSR  3),  uses  the  second  set  of  thresholds  for  units  consumable  con- 
sumption (TSRI  =2),  and  is  neither  the  first  nor  the  last  event  (IFOI  = 0)  in  family 
two  (IEFW  = 2),  which  consists  of  four  events  (NIF  = 4).  Also,  scheduled  event  3 
is  followed  by  scheduled  event  4 [NX(1)  = 4 and  PRB(l)  = 1.  00].  Before  scheduled 
event  3 can  be  started,  precedent  event  1 (IPE  = 1)  must  be  completed.  Scheduled 
event  3 can  be  touched  up  (RTU  = 2)and  must  be  completed  by  time  limit  0730  hours 
(TL  7.  30).  It  must  start  by  0345  hours  (ST  3.  75). 
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Figure  3-1.  Sample  sensitivity  test  input  data  for  scheduled  events. 


Repair  Event s 


The  14  repair  events  were  subdivided  into  two  repair  families  with  eight 
and  five  events,  respectively,  and  one  single  repair  event.  The  eight  repair 
event  family  was  designated  as  repairing  electronic  equipment.  The  five  repair 
event  family  was  designated  as  repairing  electromechanical  equipment,  while  the 
single  repair  event  involved  a mechanical  repair.  Figure  3-2  shows  a sample  of 
the  computer  tabulation  of  the  repair  event  input  data.  The  following  explanation 
of  the  third  event  in  the  electronic  repair  family  describes  the  meaning  of  the  in- 
put data  for  repair  events.  This  repair  event  employs  event  type  number  (TYPE=  3) 
with  event  2 as  the  next  event  to  be  performed  [NX(1)  = 202;  202-200  = 2 with  200 
subtracted  as  repair  events  begin  at  that  location  in  memory]  with  a probability 
equal  to  1.  0 [PRB(l)  1.  0] . If  performed  unsuccessfully,  the  event  is  not  re- 
peated or  touched  up  (RTU  = 0).  There  is  no  required  precedent  event  (IPE  = 0). 
Repair  event  3 is  not  the  first  or  the  last  event  (IFOI  = 0)in  family  1 (IEFN  =1), 
which  is  composed  of  a total  of  eight  repair  events  (IRE  = 8)  Like  all  other  events 
in  this  family  which  is  employed  in  corrective  maintenance  of  electronic  equipment 
number  1 (IQ  = 1),  no  data  change  options  are  in  effect  [IEDC(l-3)  = 0;  IEDC  (1-3) 
0).  Equipment  1 has:  a reliability  of  0.  1 (RELH  = 0.  1),  an  intermittent  failure 
rate  of  1.  00  (TUI  1.  0)  per  hour,  and  a maximum  repair  time  of  5.  00  hours  (DTR 
= 5.  00). 


Em  e r ^ (*n  c y Events 

No  families  are  involved  in  the  simulation  of  the  emergencies.  Three  types 
of  emergencies  were  included  in  the  sensitivity  test  data.  Figure  3-3  presents  the 
computer  tabulation  of  the  emergency  event  input.  The  data  for  emergency  event  2 
(K  = 2)  will  serve  as  an  example.  The  average  event  time  is  expected  to  be  . 70 
hours  (ART  = . 70),  with  a standard  deviation  of  . 10  (ASDE  = 0.  10),  and  a maximum 
of  1.  20  hours  (DTE  = 1.  20).  The  rate  of  consumable  expenditures  (units  per  hour) 
is  shown  to  be  10  for  consumables  one  through  four  [IRCE(l-4)  = 10]  and  zero  for 
consumables  six  through  ten  [ IRCE(6-10)  = 0]  . The  threshold  set  used  for  these 
consumables  is  1 (TSE  =1).  The  rate  of  consumable  expenditure  (units)  is  shown 
to  be  five  for  consumables  one  through  five  [IRCEl(l-5)  = 5]  and  10  for  consum- 
ables six  through  10  [IRCE1(6-10)  = 10],  The  threshold  set  used  for  these  consum- 
ables is  also  1(TSE1  =1).  The  mental  load  involved  in  this  task  is  2(LODME  -2), 
the  essentiality  is  75(IESSE  = 75),  and  the  hazard  class  is  2(IHE  =2).  Seven  men 
are  necessary  for  this  emergency  with  types  (NREQE)--and  expected  energy  con- 
sumption by  type  (IECE)  in  parenthesis- -one  [IECE(l)  = 180),  two  [IECE(2)  = 180), 
four  [IECE(4)  = 638],  eight  [IECE(8)  = 720],  nine  [IECE (9)  = 720],  and  ten  [IECE(10) 
= 720]  required.  Two  type  10  men  are  required  [NREQE(IO)  = 2]. 
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Figure  3-2.  Sample  sensitivity  test  input  data  for  repair  events. 
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Figure  3-3.  Sensitivity  test  input  data  for  emergency  events. 


Event  Types 


Scheduled  and  repair  events  are  all  associated  with  event  type  data.  This 
feature  allows  flexibility  to  the  analyst  in  coupling  events  with  different  critical  pa- 
rameter values.  Figure  3-4  presents  a sample  portion  of  the  computer  tabulation 
of  the  event  type  data.  Event  type  11  (J  = 11),  which  is  associated  with  scheduled 
event  3 (explained  earlier),  will  serve  to  illustrate  the  meaning  of  the  event  type 
data  input  entries.  This  decision  event  type  has  an  essentiality  of  99  (IESS  = 99),  a 
mental  load  of  2 (LODM  =2),  and  a fixed  end  time  (KE  =1).  It  is  not  a training 
event  (1NT  =1),  has  a hazard  class  of  1 (IH  =1),  and  requires  five  men  with  types 
(NREQE)--and  expected  energy  consumption  by  type  (1ECE)  in  parenthesis- -two 
[IECE(2)=  216],  five  [IECE(5)  216],  seven  [1ECE(7)  = 2 16] , nine  [IECE(9)  = 250] , 
and  ten  [IECE(10)  250].  This  event  type  has  an  expected  average  duration  of  five 

hours  (ADUR  = 5)  and  an  average  duration  standard  deviation  of  0.  1 hours  (ASD  = .l). 
The  class  of  the  event  is  3 (CLASS  =3),  and  one  equipment  (NIQR  = 1)  is  required 
--equipment  number  one  [IQR(l)  = 1] . The  expected  consumable  usage  in  units  per 
hour  is  one  [IRC(l-lO)  = 1]  and  in  units  it  is  also  one  [IRCl(l-lO)  = 1], 


Par a met  ers 


Computer  input  data  were  selected  so  as  to  allow  initial  exercise  of  the  ma- 
jor model  features. 

Following  data  preparation,  a variety  of  computer  simulation  runs  was  com- 
pleted employing  a range  of  parameter  values  in  order  to  allow  evaluation  of  the 
sensitivity  of  the  model  to  variations  in  parametric  input  and  how  they  affect  vari- 
ous reliability  metrics. 

Table  3-1  shows  the  nominal  values,  or  conditions,  for  each  computer  run 
performed. 

Table  3-2  presents  the  matrix  which  was  used  in  the  assignment  of  person- 
nel crosstraining  probabilities.  This  matrix  presents  the  probability  of  a person- 
nel type  with  a given  primary  specialty  being  crosstrained  in  a given  secondary  spe- 
cialty. These  values  were  obtained  through  interviews  with  persons  who  were  patrol 
boat  members  and  were  used  in  the  Siegel  et  al.  (I972)study. 

The  parameter  values  varied  for  the  seven  sensitivity  test  runs  are  shown 
in  Table  3-3.  Each  set  of  values  in  a computer  run  was  designated  a "parameter 
set"  and  numbered  one  to  seven,  as  shown  in  Table  3-3.  These  parameter  values 
allow  the  comparison  of  such  effects  as  varying  workday  length,  crew  proficiency, 
and  sea  state  on  output  measures  such  as  the  number  of  repairs  successfully  com- 
pleted. 


82 


APPLIED  PSYCHOLOGICAL  SEPVIC'S— NAVSEA 

HURT 

A I S 1 

JB 

- • 

- - 

— 

11/05/74 

- - - 

__PA6E___  5_ 

fc  VENT 

Type  OAT* 

— 

— 

— 

— 

— 

J. 

IDENTIFIER 



,,  _ 

. _ 



ADUR 

ASD  CLASS 

NIQR 

J OR  < 1 

• 6 ) 

ess 

L0D«  Kr 

IMT  In  NReOI  1**10 ) 

IRC(1-10} 

JPC<1-10) 

IRCKl-lO) 

1 

EVENT  'type 

1 ELECTRONIC  Rrp'Ap, -io 

EO 

_ 

“ ' * 

— 

— 

— 

i;  000 

T,  250 

10 

" - 

1 

T 0 

0 

0 

0 . 

0 

100 

5,  2 

i i,  o o o o o 

1 0 

1 

0 

0 

1 * 

1. 

i» 

1 . 

1, 

1. 

It 

1;  „ 

if 

I.. 

0. 

c;  o. 

0 . 0 . 374  , o;  V4, 

0, 

0, 

1 

1 

1 

1 

1 

1 

1 l 

“f 

1 

2 

EVENT  type 

2 ^L^CTPSNIC  RFP  4 I P~-7 

tc 

- 

r.ioo 

0,250 

7 

"1 

1 0 

0 

~ 0 

nr 

0 

10* 

5.  2 

1 •}.  0 0 0 o o 

1 0 

1 

0 

0 

r... 

1. 

ii 

1; 

1. 

1. 

1: 

it„ 

i._ 

0. 

c ; o . 

0.  0,  374;  0,  J74, 

c, 

0. 

1 

1 

1 

1 

1 

1 

1 1 

1 

1 

3 

EVENT  Tvpc 

3 cLpCTRONlC  P^P A 1 D«*-l2 

— 

— . 

— 



— 

r,*ooo~ 

o,ion  ~ 

12 

* r 

” r o~ 

"0“’ 

“O' 

0 

0 

100 

5,  2 

1 3 , 0 0 0 0 0 

1 U 

1 

0 

0 

1, 

1. 

it 

1; 

i* 

1. 

1. 

1; 

ll 

1. 

0. 

c:  o. 

0,  0,  37«,  O'.  '7*. 

0, 

0. 

1 

1 

1 

1 

1 

1 

1 1 

1 

'1 

4 

EVENT  TYpc 

4 EUcCTRONin  9rpAp*-5 

fcC  A 

- 

— - 

- 

I'.IOO 

o'.ioo 

6 

”1 

1 0 

0 

”0 

”T 

■”0 

10  0 

5.  ? 

1 3,  3 0 0 0 0 

1 0 

1 

0 

0 

r. 

1. 

it 

1; 

1. 

1. 

1. 

1; 

it 

1. 

0, 

c;  o, 

0,  0,  374,  pi  ,74. 

0. 

0. 

1 

1 

1 

1 

1 

1 

1 1 

1 

1“' 

5 

EVENT  TYpF 

5 ELECTRONIC  REpAp.r6 

fcUKM 

— 



— 

■ -* 

— 

i ; 0 0 0 ' 

0,250 

6 

-- 

. 

r o~~* 

"0“' 

0 

0 

0 

ICO 

5.  *2 

1 3,  0 0 0 0 0 

1 u 

1 

b 

0 

1 

* . 

1. 

i« 

1; 

1. 

1. 

1. 

1: 

If 

1. 

c. 

0 : 0 . 

0,  0,  374;  0.  374, 

0, 

0. 

1 

1 

1 

1 

1 

1 

1 1 

1 

1 

A 

EVENT  TYPP' 

h ELFCTRg-'iC  RfpA|Gi-9 

trt, 

-• 

... 

- 

— 

— -- 

1 ; ono 

0,250 

*‘9 

- 

'i 

1 0 

0 

“0“ 

“o'" 

0” 

100 

5,  ? 

1 3,  3 0 0 0 0 

1 0 

1 

0 

0 

1 ; 

1. 

it 

1; 

1, 

1. 

if  . 

i; 

1» 

If. 

0. 

o;  o. 

0.  0.  374;  0;  374, 

0, 

0, 

1 

1 

1 

1 

1 

1 

1 i 

1 

1 

7 

EVENT~TYPC' 

7 ELECTRONIC  RFPApLrlO 

~EO”~ 

1:000 

0,200 

10 

1 

i 0 

0 

0 

0 

0“ 

100 

5,  ? 

1 3,  0 0 0 0 0 

1 0 

1 

0 

0 

i. 

1. 

it 

1: 

1. 

1. 

if. 

1: 

it 

If 

0. 

o;  o, 

0;  0,  374;  p;  374, 

0. 

0. 

1 

1 

1 

1 

1 

1 

1 1 

1 

“ 1 

8 

EVENT  TYPE 

9 ELECTRONIC  REPAIR-. 13 

ehp  r 

^ 

— 

- 

— 

— 

i;ooo  ‘ 

0/200 

13 

“T“i " 

0 

0 

0 

0 

100 

. 5*  2 

1 3,  0 0 0 0 0 

1 0 

1 

0 

_0 

1; 

1.  _ 

Ai_ 

1; 

.. 

1,_ 

Aj_ 

_ At . 

ii 

1«_ 

* 

0. 

o:  o, 

0 , 0 , 374  , o’.  G74, 

0. 

0. 

< 

* 

“1 

. j 

1 

1 

1 

1 1 

1 

1 

9 

EVENT  TYPF 

9;'-coh9Unicate 

- - - 

- — 

- 

— 

* 

— 

4 ; 0 0 0 

0,200 

~T 

2“  0 ~ 

0“ 

0 

0 

0 

99 

2 * 

1 i.  0 0 0 1 0 

0 0 

1 

0 

2 

r. 

1. 

it 

1; 

1, 

1. 

1. 

I’. 

ll 

lju 

0. 

O’.  0.  216,  0.  O',  O'.  216, 

0, 

250 ; 

1 

1 

1 

1 

1 

1 

i 1 

~ 1 

~'  1 

10 

EVENT  TYP- 

10--OPERATF 

*i;ooo 

'0/2  or 

2 

1 

T 0 

0 

0 

Q 

0 

95 

1.  2 

1 1 , 0 0 0 0 0 

1 0 

0 

0 

0 

1;  _ 

1. 

it 

1 ; 

1, 

1... 

I! 

ix 

1. 

0. 

0*.  0. 

0.  0,  135’,  O’,  0. 

0. 

0. 

1 

1 

' ’l 

1 

1 

r 

1 “ '1 

i 

1 

11 

EVENT  TYPF 

11  DECIDE 

- 

- • 

— 

* 

— 

— 

— 

5 ; 0 0 0 ^ 

07100 

3 

-- 

— 1 

— 1—0” 

0 

a 

0 

0 

99 

2 i 

1 1.  0 1 0 0 1 

0 1 

0 

1 

1 

1; 

1. 

1. 

1; 

I* 

1. 

1.  „ 

I*. 

1. 

1. 

0. 

216;  0, 

O'.  2l6,  O',  21  6 ; 0, 

250. 

250; 

1 

1 

1 

1 

1 

1 

"1  ‘ 1 

1 

1 

12 

EVENT  TYPF 

12  ACT 

— 

— 

• ~ * 

i : 100 

0,100 

4 

— ■ 

~r 

~ f — O' 

0" 

— o~ 

0 

IS — 

95 

4.  ? 

1 1,  0 0 0 0 0 

X 0 

0 

0 

0 

1 : _ 

1. 

i». 

1; 

1. 

1. 

.i_i_- 

x; 

ll 

lj_ 

~ 0. 

c:  o. 

o'.  0,  170 1 o’.  0; 

or 

0;' 

i 

“1 

1 

1 

1 

r 

~r  *1 

1 

1 

Figure  3-4.  Sample  sensitivity  test  event  type  input  data. 


Table  3-1 


"Standard"  Parameter  Set  Run  Conditions 


PaJimztQA 

FORTRAN 

Value. 

Average  psychological  stress  threshold 

APST 

2.30 

Workday,  assignment  limit 

W0RK1 

varied 

Workday,  maximum 

WORK  2 

22.00 

Hours  since  last  sleep  at  start 

SLEEP 

1.00 

Catnap  threshold 

CN 

1.00 

Maximum  sleep  permitted  per  day 

MAXSL 

8.00 

Fatigue  threshold 

TFAT 

0.25 

Average  crew  pace 

ACP 

varied 

Average  daily  calories  per  crew  member 

CALRY 

2700.00 

Average  short  term  power  rate  (cals/hr) 

PWRRT 

440.00 

Acceptable  performance  constant 

K7 

1.00 

Work  factor  constant 

K1 

0.95 

Consumable  levels:  (units/hr) 

K0N(1) 

15150.00 

KON ( 2 ) 

10000.00 

K0N(  3 ) 

6000.00 

KON ( 4 ) 

500.00 

KON ( 5 ) 

500.00 

KON ( 6 ) 

500.00 

KON ( 7 ) 

500.00 

KON( 8) 

500.00 

KON ( 9 ) 

500.00 

K0N(10) 

500.00 

Consumable  levels:  (units) 

K0N1(1) 

100.00 

K0N1 (2 ) 

100.00 

K0N1 ( 3 ) 

100.00 

K0N1(4) 

100.00 

K0N1( 5) 

100.00 

K0N1(6) 

100.00 

K0N1(7) 

100.00 

K0N1 ( 8 ) 

100.00 

K0N1(9) 

100.00 

K0N1(10) 

100.00 

Initial  aspiration  level 

A ASP 

0.85 

Number  of  iterations 

N 

5.00 

Essentiality  threshold 

IET 

0.30 

Sea  state 

SESTA 

varied 

PeAAonneZ  Void 

Mean  body  weight  of  total  population 

WT 

160.50 

Standard  deviation  of  population  body  weight 

SIGWT 

20.00 

% crew  fully  qualified  in  prime  specialty 

PPFQ 

varied 

% crew  minimally  qualified  in  prime  specialty 

PPMQ 

varied 

% crew  unqualified  in  prime  specialty 

PPUQ 

varied 

% crew  fully  qualified  in  second  specialty 

SPFQ 

varied 

% crew  minimally  qualified  in  second  specialty 

SPMQ 

varied 

% crew  unqualified  in  second  specialty 

SPUQ 

varied 

Avg.  N man  days  between  physical  incapacitations 

MPI 

5.00 

Avg.  duration  of  incapacity  (days) 

PID 

5.00 

Physical  capability  constant,  a value  yielding  zero 

physical  capability  due  to  over  exertion 

ZPC 

2.00 

Number  of  men  by  type 

MEN( ICE ,NI ) 

varied 
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Table  3-2 


Crosstraining  Probability  Matrix 


Secondary 

Specialty 

1 

2 

3 

4 

l 

0.99 

0.65 

0.71 

0.25 

2 

0.78 

1.00 

0.65 

0.63 

3 

0.79 

0.46 

1.00 

0.11 

4 

0.56 

0.72 

0.24 

1.00 

5 

0.38 

0.27 

0.12 

0.62 

6 

0.36 

0.22 

0.42 

0.06 

7 

0.81 

0.39 

0.72 

0.14 

8 

0.21 

0.06 

0.12 

0.10 

9 

0.26 

0.16 

0.85 

0.04 

10 

0.83 

1.00 

0.82 

0.97 

Ptimc  Specialty 


5 

6 

7 

8 

9 

10 

0.09 

0.18 

0.18 

0.13 

0.11 

0.05 

0.31 

0.45 

0.38 

0.23 

0.26 

0.59 

0.13 

0.12 

0.43 

0.16 

0.35 

0.06 

0.71 

0.35 

0.21 

0.16 

0.19 

0.42 

0.94 

0.14 

0.26 

0.32 

0.12 

0.13 

0.21 

1.00 

0.52 

0.54 

0.25 

0.06 

0.42 

0.72 

1.00 

0.86 

0.48 

0.14 

0.47 

0.37 

0.55 

1.00 

0.08 

0.03 

0.04 

0.60 

0.23 

0.18 

0.96 

0.06 

0.87 

0.71 

0.82 

0.73 

0.74 

1.00 
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Table  3-3 


Sensitivity  Test  Runs 


Parameter  Set- -Test  Run 


Parameters  Varied 

1 

2 

3 

4 

5 

6 

7 

Comparison 

Workday  length  (hours) 

18 

18 

18 

12 

12 

12 

18 

Average  vs.  long  workday 

Primary  proficiency 

1.  Per  cent  fully  qualified 

0 

0 

0 

90 

90 

90 

0 

High  proficiency  vs. 

2.  Per  cent  minimally  qualified 

10 

10 

10 

10 

10 

10 

10 

low  proficiency  crew 

3.  Per  cent  unqualified 

90 

90 

90 

0 

0 

0 

90 

Secondary  proficiency 

1.  Per  cent  fully  qualified 

0 

0 

0 

90 

90 

90 

0 

High  proficiency  vs. 

2.  Per  cent  minimally  qualified 

10 

10 

10 

10 

10 

10 

10 

low  proficiency  crew 

3.  Per  cent  unqualified 

90 

90 

90 

0 

0 

0 

90 

Average  crew  pace 

1.  0 

1.  0 

1.  0 

1.  0 

1.  0 

1.  0 

1.  25 

Average  vs.  slow  crew 

Sea  state 

9 

9 

0 

0 

9 

0 

0 

Calm  vs.  rough  seas 

Crew  size 

14 

9 

9 

14 

9 

9 

9 

Large  vs.  small  crew 

Table  3-4  shows  the  personnel  assignment  matrices  for  crew  echelon  by  per- 
sonnel type  for  the  two  crew  sizes  (9  men  and  14  men)  simulated.  The  decrease 
in  crewsize  from  14  to  9 results  in  the  loss  of  one  type  one  man  from  crew  echelon 
one,  one  type  two  man  from  crew  echelon  two,  one  type  five  man  from  crew  echelon 
three,  and  two  type  ten  men  from  crew  echelon  four. 


Table  3-4 

Personnel  Assignment  Matrices  for  Crew  Sizes  of  9 and  14 

Crew  Size  of  9 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

i 

2 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Crew 

2 

0 

0 

1 

1 

0 

0 

0 

0 

0 

0 

Echelon 

3 

0 

0 

0 

0 

0 

1 

1 

1 

0 

0 

4 

0 

0 

0 

0 

0 

0 

0 

0 

1 

1 

Crew  Size  of  14 

1 

2 

Personnel  Type 
3 4 5 6 

7 

8 

9 

10 

1 

3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Crew 

2 

0 

1 

1 

1 

0 

0 

0 

0 

0 

0 

Echelon 

3 

0 

0 

0 

0 

1 

1 

1 

1 

0 

0 

4 

0 

0 

0 

0 

0 

0 

0 

0 

1 

3 

Note  that  a variety  of  differences  were  selected  in  an  attempt  to  assess  ef- 
fects on  the  model1  s output  for  sensitivity  evaluation.  These  changes  in  output, 
when  viewed  in  the  light  of  input  change,  may  be  used  to  determine  the  realism 
(agreement  with  logical  expectancy)  of  model’s  output  responses  both  in  direction 
and  magnitude.  To  allow  appraisal  of  the  model’s  sensitivity,  the  results  achieved 
will  be  presented  in  groups  of  parameter  set  runs  which  concentrate  on  a selected 
facet  of  the  model’s  response.  For  example,  parameter  sets  1 and  2 allow  a de- 
termination of  the  effect  of  crew  size.  The  only  change  in  parameter  values  between 
the  two  computer  runs  is  crew  size.  Similarly,  a comparison  between  parameter 
sets  3 and  7 allows  quantification  of  the  effects  of  variation  in  average  crew  pace. 
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Results 


Crew  Size 


The  results  from  parameter  set  1 versus  2 and  4 versus  6 represent  the 
effects  of  variations  in  crew  size  on  the  completion  of  the  events  in  the  simulated 
day's  work.  Parameter  sets  2 and  6 include  crew  sizes  of  9 men,  while  parameter 
sets  1 and  4 are  simulations  of  crews  with  14  men.  Parameter  sets  1 and  2 both 
involve:  long  workdays,  low  proficiency  crews,  average  crew  pace,  and  rough  seas. 
Parameter  sets  4 and  6 both  include:  short  workdays,  high  proficiency  crews,  aver- 
age crew  pace,  and  calm  seas. 

Figures  3-5,  3-6,  3-7,  and  3-8  present  the  effects  of  crew  size  variation 
on  selected  simulation  output.  The  first  of  these  figures  indicates  for  both  com- 
parisons an  increasing  percentage  of  tasks  successfully  completed  with  increasing 
crew  size.  The  percentage  of  tasks  failed  decreased  from  71.2  to  65.  9 with  in- 
creasing crew  size  for  parameter  sets  1 and  2,  while  the  percentage  of  tasks  failed 
for  parameter  sets  4 and  6 remained  relatively  constant.  The  effects  of  crew  size 
variation  on  task  performance  accordingly  seems  to  have  had  its  greatest  impact 
on  the  percentage  of  tasks  successfully  completed.  Task  success  percentage  in- 
creased approximately  10  per  cent  for  parameter  sets  1 and  2 (less  than  optimal 
conditions)  and  approximately  15  per  cent  for  parameter  sets  4 and  6 (with  more 
optimal  conditions).  Increases  in  the  number  of  events  failed  with  smaller  crews 
seems  to  be  coupled  with  less  than  optimal  conditions.  Large  simulated  crews  were 
more  able  to  handle  the  increased  workload.  This  result  seems  to  be  in  accordance 
with  logical  expectancy. 

Figure  3-6  indicates,  as  would  be  expected,  that  more  idle  hours  and  less 
work  by  crew  members  in  their  primary  proficiency  accompanies  larger  crew  sizes. 
Idle  time  was  about  20  per  cent  greater  for  parameter  set  1 as  compared  with  pa- 
rameter set  2 and  about  10  per  cent  greater  for  parameter  set  4 as  compared  with 
parameter  set  6.  The  decrease  in  time  worked  in  primary  specialty  is  reflective 
of  the  general  decrease  in  work  time  per  crew  man  with  increasing  crew  size.  This 
trend  of  these  results  is  also  considered  to  be  realistic. 

Figure  3-7  presents  the  effect  of  crew  size  on  average  physical  workload. 

As  expected,  increasing  the  size  of  the  crew  results  in  a simulation  output  which 
indicated  less  physical  workload  per  crew  member.  The  difference  in  workload  be- 
tween parameter  sets  1 and  2 (less  than  optimal  conditions)  and  parameter  sets  4 
and  6 (more  optimal  conditions)  reflects  the  greater  number  of  events  attempted 
(not  ignored)  and  successfully  performed  (see  Figure  3-5)  by  the  simulated  crew 
under  the  more  optimal  conditions. 
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PARAMETER  SETS  1 &2 


PARAMETER  SETS  4&  6 
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% FAILURE  PARAMETER  SETS  I 82 


SHORT  WORKDAY 
HIGH  PROFICIENCY 
AVERAGE  CREW  PACE 
CALM  SEAS 


50 


% SUCCESS  PARAMETER  SETS  4 8 6 


2 40 

UJ 

o 

<r 

UJ 

a.  30 


20 


% FAILURE  PARAMETER  SETS  4 8 6 


10 


% SUCCESS  PARAMETER  SETS  I 8 2 

J i 

9 14 


CREW  SIZE 


FIGURE  3*5.  EVENT  SUCCESS  AND  FAILURE  PERCENTAGE  AS  A FUNCTION 

OF  CREW  SIZE. 
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FIGURE  3-6.  HOURS  (AVERAGE)  WORKED  IN  PRIMARY  SPECIALTY  AND  HOURS 
IDLE  AS  A FUNCTION  OF  CREW  SIZE. 
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AVERAGE  PHYSICAL  LOAD 


FIGURE  3-7.  AVERAGE  PHYSICAL  LOAD  AS  A FUNCTION  OF  CREW  SIZE. 
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AVERAGE  HOURS  SLEPT 


FIGURE  3-8.  AVERAGE  HOURS  SLEPT  AS  A FUNCTION  OF  CREW  SIZE 
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The  effect  on  average  hours  slept  of  variations  in  crew  size  is  shown  in 
Figure  3-8.  With  increasing  crew  size,  the  average  number  of  hours  slept  can 
be  observed  to  increase  for  parameter  sets  1 and  2,  as  well  as  parameter  sets  4 
and  6.  The  effect  is  marginal  for  parameter  sets  4 and  6.  For  parameter  sets  1 
and  2,  approximately  a 20  per  cent  increase  in  sleep  time  was  shown  with  the  in- 
creased crew  size.  The  increased  sleep  time  available  under  the  more  adverse 
conditions  (parameter  sets  1 and  2)  is  a function  of  more  events  being  ignored. 

The  crew  size  data  suggest  that  the  crew  size  variable  is  adequately  and 
logically  reflected  on  a number  of  the  model's  output  variables.  This  variable 
seems  to  have  the  desired  effects  on  event  success,  failure,  hours  worked,  idle 
time,  hours  slept,  and  physical  workload  levels. 

Sr  a Stale 

The  effect  of  the  sea  state  parameter  on  the  model's  output  was  explored  by 
comparing  the  simulation  results  from;  (1)  parameter  sets  2 and  3,  and  (2)  parame- 
ter sets  5 and  6.  Parameter  sets  2 and  3 are  characterized  by:  long  workdays,  low 
proficiency  crews,  average  crew  pace,  and  small  crews.  Parameter  sets  5 and  6 
are  characterized  by:  short  workdays,  high  proficiency  crews,  average  crew  pace, 
and  small  crews.  Parameter  sets  2 and  5 have  sea  state  values  equal  to  9 (rough 
seas)  while  parameter  sets  3 and  6 have  sea  state  values  equal  to  0 (calm  and  glassy) 
seas. 

The  effects  of  variation  in  the  sea  state  parameter  are  shown  in  Figures  3-9, 
3-10,  and  3-11.  Figure  3-9  shows  the  effect  of  sea  state  variation  on  the  average 
failure  difference.  As  anticipated,  both  parameter  sets  indicated  a larger  margin 
between  actual  and  acceptable  performance  (the  failure  difference)  for  the  rough  sea 
state  condition.  The  larger  failure  differences  observed  for  parameter  set  2 as 
compared  with  parameter  set  3 suggest  that,  according  to  the  model,  a lower  pro- 
ficiency crew  working  a longer  worker  day  will  suffer  a significant  performance 
degradation  in  rough  seas  and  that  this  degradation  is  higher  than  for  the  short  work- 
day, high  proficiency  crews. 

Figure  3-10  presents  the  effects  on  the  percentage  of  events  successfully 
completed  or  failed  as  a function  of  difference  in  sea  state.  Percentage  of  failure 
appears  to  increase  significantly  with  adverse  weather  conditions.  The  effects  on 
percentage  of  success  appear  to  have  been  greatest  in  the  comparison  of  parameter 
set  2 with  parameter  set  3.  Here,  a 14  per  cent  decrease  was  indicated.  The 
slight  increase  in  percentage  of  successful  events  observed  for  parameter  set  5 as 
compared  with  parameter  set  6 (adverse  weather  conditions)(4  per  cent)  is  con- 
sistent with  the  prior  indication  of  the  model  that  higher  proficiency  crews  working 
shorter  workdays  are  less  affected  by  the  sea  state. 
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SEA  STATE. 
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FIGURE  3*10.  EVENT  SUCCESS  AND  FAILURE  AS  A FUNCTION  OF 

SEA  STATE. 
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Figure  3-11  presents  the  effects  of  varying  sea  state  on  average  perform- 
ance adequacy  (A PA).  Both  parameter  sets  are  in  agreement.  Each  indicates  a 
decrease  in  A PA  with  increasing  weather  turbulence.  Also,  as  predicted,  the  bet- 
ter crew  (higher  proficiency)  of  parameter  sets  5 and  6 demonstrated  higher  A PA. 
In  summary,  it  appears  from  the  average  failure  difference,  percentage  success/ 
failure,  and  average  performance  acequacy  data  that  the  model  yields  results  which 
are  directionally  sensitive  in  the  anticipated  direction  when  the  new  sea  state  vari- 
able is  implemented --at  least  over  the  ranges  tested. 


Workday  Length  and  Proficiency 

One  of  the  many  uses  of  the  model  can  be  phrased  symbolically  as: 

A O B -COD 

That  is,  the  occurrence  of  conditions  A and  B is  approximately  equivalent  (in  terms 
of  some  criterion  such  as  number  of  successful  event)  to  conditions  C and  D.  An 
analyst  might,  for  example,  be  interested  in  whether  a crew  of  lesser  proficiency 
which  is  given  more  time  to  work  would  perform  as  well  as  a crew  of  greater  pro- 
ficiency given  less  time.  This  type  of  analysis  is  illustrated  in  the  sensitivity  tests 
reported  here.  In  this  aspect  of  the  sensitivity  tests,  proficiency  and  workday 
length  were  varied  concurrently.  Table  3-5  presents  the  workday  length-profici- 
ency parameter  combinations  investigated. 

Parameter  sets  2 and  3 include  a long  worday  with  a crew  of  low  profici- 
ency, while  parameter  sets  5 and  6 include  a short  workday  with  high  proficiency. 
Comparisons  between  the  results  from  parameter  sets  2 and  5 and  between  parame- 
ter sets  3 and  6,  accordingly  provide  the  desired  data. 
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Table  3-5 


Workday  Length  and  Proficiency  Parameter  Values 
for  Parameter  Sets  2,  3,  5,  and  6 


Parameters 

Workday  length  (hours) 

Primary  proficiency 

Per  cent  fully  qualified 
Per  cent  minimally  qualified 
Per  cent  unqualified 

Secondary  proficiency 
Per  cent  fully  qualified 
Per  cent  minimally  qualified 
Per  cent  unqualified 

Sea  State 


Crew  size 


Parameter  Set 


2 and  3 5 and  6 

18  12 


0 

10 

90 


90 

10 

0 


0 

10 

90 


90 

10 

0 


2 3 

9 0 


_5  6 

9 0 


9 9 


9 9 


Figures  3-12,  3-13,  and  3-14  present  the  simulation  output  resulting  from 
the  workday  length- proficiency  variation.  The  first  of  these  figures  indicates  an 
increase  in  the  average  physical  workload  with  the  shorter  workday-higher  profici- 
ency. For  parameter  set  2 in  comparison  with  parameter  set  5,  as  well  as  for 
parameter  set  3 in  comparison  with  parameter  set  6,  the  increase  amounted  to  bet- 
ter than  25  per  cent.  It  is  possible  that  the  faster  crew  has  to  work  harder  during 
the  shorter  time  period  allotted  to  them  to  complete  the  day's  work  and  that  their 
greater  proficiency  does  not  offset  the  necessary  increase  in  physical  labor.  Par- 
ameter sets  3 and  6 indicated  a much  greater  degree  of  physical  load  than  the  par- 
emeter  sets  2 and  5.  This  result  probably,  as  has  been  noted  earlier,  reflects  the 
greater  number  of  events  ignored  under  adverse  weather  conditions. 

Figure  3-13  presents  the  effects  on  event  success  and  failure  percentages  as 
the  result  of  the  workday  length-proficiency  variation.  The  percentage  of  event  suc- 
cess increased  dramatically  for  the  higher  proficiency  crews.  Analogously,  per- 
centage of  event  failure  decreased  with  the  increase  in  proficiency.  While  the  short- 
er workday  would  probably  have  an  effect,  in  and  of  itself,  prior  results  with  an 
earlier  version  of  this  model  (Siegel,  Wrolf,  &.  Cosentino,  1971)  suggest  that  the 
large  variations  observed  in  event  success  and  failure  is  primarily  a function  of 
the  variation  in  proficiency. 
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FIGURE  3-12.  AVERAGE  PHYSICAL  LOAD  AS  A FUNCTION  OF  WORKDAY 

LENGTH  AND  PROFICIENCY 
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PPMQ  |0  10 

PPUQ  90  0 

FIGURE  3-13.  EVENT  SUCCESS  AND  FAILURE  PERCENTAGE  AS  A FUNCTION 
OF  WORKDAY  LENGTH  AND  PROFICIENCY. 
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Figure  3-14  presents  the  effect  of  varying  the  workday  length  and  proficiency 
on  average  end-of-mission  fatigue.  No  effect  is  indicated  for  the  comparison  of 
parameter  sets  2 and  5.  For  parameter  set  3,  compared  with  parameter  set  6,  a 
drop  of  approximately  . 07  in  fatigue  was  indicated  in  the  higher  proficiency-shorter 
workday  combination.  Coupled  with  the  results  presented  in  Figure  3-12,  this  sug- 
gests that  while  the  average  physical  load  may  increase  because  of  the  shorter  work- 
day, the  fatigue  level  at  the  end  of  the  day  has  actually  been  depressed.  The  higher 
average  fatigue  for  parameter  sets  3 and  6 is,  once  again,  probably  reflective  of  the 
large  number  of  events  ignored  during  adverse  weather  conditions. 

Integration  of  results  from  the  three  analyses  involving  comparisons  between 
workday  length  and  crew  proficiency  combinations  suggests  support  for  contentions 
favoring  the  trend  sensitivity  of  model  parameters  to  variations  in  these  variables. 
However,  further  calibration  analysis  of  the  fatigue  variable  may  also  be  indicated. 
The  data  relative  to  fatigue,  event  success  and  failure,  and  physical  workload,  for 
the  most  part,  tend  to  be  logical  and  consistent  with  the  observed  trends  being  in 
the  predicted  directions.  These  results  also  serve  to  demonstrate  the  utility  of  the 
model  for  assessing  the  effects  of  tradeoffs  (e.  g.  , low  proficiency  and  a long  work- 
day versus  high  proficiency  and  a short  workday).  This  type  of  analysis  has  tradi- 
tionally been  found  to  be  useful  to  the  system  analyst.  In  the  cases  shown,  the  ad- 
vantage of  high  proficiency  far  outweighs  the  "advantage"  of  a longer  workday. 


AvtMMige  Cren  Pacr 

The  effect  of  varying  average  crew  pace  on  event  success  and  failure  is 
shown  for  parameter  sets  3 and  7 in  Figure  3-15.  As  would  be  expected,  the  per- 
centage of  events  failed  increased,  and  the  percentage  of  events  successfully  com- 
pleted decreased  as  the  average  pace  of  the  simulated  crews  decreased.  The  per- 
centage of  events  failed  due  to  this  25  per  cent  decrease  in  average  crew  pace  (de- 
fined as  a slow  crew)  increased  approximately  13  per  cent,  while  the  percentage  of 
events  successfully  completed  decreased  approximately  8 per  cent.  These  changes 
in  event  performance  illustrate  adequate  sensitivity  of  the  model  to  variations  in 
this  variable. 


Hr  liability  Anal y s t s 

Mean  time  between  failures,  mean  time  to  repair,  and  availability  were 
calculated  both  for  the  crew  and  for  the  equipment  in  the  simulations  involving 
each  parameter  set.  Additionally,  the  overall  system  availability  metric,  which 
is  a function  of  both  equipment  and  human  reliability,  was  also  calculated  after  the 
completion  of  all  the  iterations  for  each  run.  Equipment  mean  time  between  fail- 
ures (EMTBF),  equipment  mean  time  to  repair  (EMTTR),  and  equipment  availabil- 
ity are  calculated  within  the  model  in  the  usual  manner.  Human  mean  time  between 
failure  (HMTBF)  is  calculated  in  terms  of  touchup  and  repeat  time,  while  human 
availability  (HA VAIL)  is  calculated  by  dividing  HMTBF  by  HMTBF  and  HMTTR. 
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These  statistics  are  particularly  sensitive  to  the  number  and  types  of  events 
actually  performed  during  a simulation  run.  Because  of  the  stochastic  nature  of 
the  model  and  the  intention  of  requiring  a large  number  of  unscheduled  (repair  and 
emergency)  events  in  the  sensitivity  tests,  the  actual  values  of  the  numerics  ob- 
tained in  this  sensitivity  analysis  are  of  less  concern  than  relationships  between 
stochastic  runs  where  both  a similar  number  and  type  of  events  were  performed. 

Also,  the  reliability  data  reported  are  only  a sample  of  those  actually  com- 
puted. However,  they  do  reflect  the  general  trends  observed.  Those  analyses 
which  resulted  in  counter-intuitive  findings  are  currently  being  investigated. 

The  present  discussion  is  particularly  interested  in  the  human  oriented 
metrics--HMTBF,  HMTTR,  HA  VAIL.  The  equipment  oriented  metrics  are  based 
on  the  usual  equation  and  reflect  input  data. 

Parameter  sets  2 and  3 differed  only  in  sea  conditions.  The  sea  state  in 
parameter  sets  2 and  3 was  9 and  0 respectively.  Table  3-6  presents  the  obtained 
reliability  values  for  these  parameter  sets. 


Table  3-6 

Overall  Reliability  Metrics  for  Parameter  Sets  2 and  3 
Parameter  MTBF  MTTR  Availability  System 


Set 

Human 

Equ i pmen  t 

Human 

Equ ipment 

Human 

Equipment 

Availability 

2 

0.  744 

3.  384 

2.  71 

20.  889 

0.  215 

0.  139 

0.  181 

3 

2.226 

3.  367 

3.  06 

21.  339 

0.  421 

0.  136 

0.  313 

The  parameter  set  2 crew  showed  shorter  HMTBF  (as  anticipated),  shorter 
HMTTR  (against  anticipation),  lower  availability  (as  anticipated),  and  lower  system 
availability.  The  reversal  of  directional  tendency  in  the  case  of  HMTTR  is  believed 
to  be  an  artifact  of  the  low  number  of  iterations  included  in  these  sensitivity  tests. 
However,  these  results  may  also  suggest  that  further  calibration  of  the  HMTTR 
measure  may  be  necessary. 

Table  3-7  presents  the  various  reliability  metrics  comparing  the  results 
from  parameter  sets  3 and  7.  These  two  parameter  sets  differed  only  in  the  assign- 
ed average  crew  pace.  Parameter  set  7 represented  the  slower  crew.  All  the  met- 
ric comparisons,  with  the  exception  of  the  HMTTR  comparison,  indicate  superior- 
ity for  the  faster  crew.  There  was  a considerable  increase  in  system  availability 
as  the  result  of  manning  the  simulated  system  with  a faster  crew.  However,  again 
there  is  a reversal  for  the  HMTTR  comparison.  The  present  thinking  relative  to 
this  reversal  is  the  same  as  that  discussed  for  the  prior  parameter  set  comparison. 
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Table  3-7 


Overall  Reliability  Metrics  for  Parameter  Sets  3 and  7 


Parameter 

Set 


MTBF  MTTR  Availability 

Human  Equipment  Human  Equipment  Human  Equipment 


System 

Availability 


3 

7 


2.226  3.367 

1.649  3.536 


3.06  21.339 

2.  86  18.  130 


0.  421  0.  136 

0.  366  0.  163 


0.  313 
0.  283 


The  effect  of  the  crew  size  variable  with  a short  workday,  high  proficien- 
cy crews,  average  crew  pace,  and  calm  seas  is  shown  in  Table  3-8.  Parameter 
set  4 includes  a crew  of  14  men,  while  parameter  set  6 has  a smaller  crew  (9  men). 


Table  3-8 

Overall  Reliability  Metrics  for  Parameter  Sets  4 and  6 


Parameter  MTBF  MTTR  Availability  System 


Set 

Human 

Equipment 

Hum  an 

Equ i pmen  t 

Hum  an 

Equ ipmen  t 

Availability 

4 

5.  314 

2.  829 

1.  88 

18. 754 

0.  739 

0.  131 

0.  531 

6 

6.  953 

3.  157 

4.  60 

15.  829 

0.  602 

0.  166 

0.  441 

The  larger  crew  indicated  a shorter  HMTBF,  a shorter  HMTTR,  a higher 
AVAIL,  and  a higher  system  availability.  Here,  all  numerics  are  in  the  anticipated 
direction  with  a 20.  4 per  cent  increase  in  system  availability  resulting  from  the 
increase  in  crew  size. 
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In  summary,  it  appears  that,  as  a first  attempt  at  deriving  and  computing 
human  related  reliability  and  availability  metrics,  the  model  has  proved  success- 
ful. The  reliability  metric  values  obtained  were,  by  and  large,  logical  and  inter- 
pretable. There  seems  to  be  some  need  to  investigate  more  fully  the  HMTTR  met- 
ric and  to  confirm  that  these  metrics  accurately  reflect  the  logic  of  the  model,  as 
well  as  the  real  world  situation. 
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CHAPTER  IV 


DISCUSSION,  SUMMARY,  AND  CONCLUSIONS 


The  present  study  attempted  to;  (1)  extend  and  strengthen  a previously  de- 
veloped model  for  simulating  the  acts  and  behaviors  of  the  operators  of  an  inter- 
mediate size  system  to  include  a greater  number  of  options  to  the  model  user,  (2) 
evolve  the  model  into  one  which  produces  reliability  oriented  metrics  for  both  hu- 
mans and  equipment  on  both  an  event  and  overall  system  level,  and  (3)  conduct  an 
initial  series  of  sensitivity  tests  relating  the  new  variables  and  parameters  to  those 
already  present  in  the  model.  The  extensions  incorporated  as  well  as  the  new  reli- 
ability metrics  introduced  were  reviewed  earlier  in  this  report. 

The  results  of  the  sensitivity  tests,  taken  as  a whole,  suggest  that  the  logic 
for  the  modifications  and  new  variables  and  parameters  as  introduced  seem  to  re- 
flect positively  on  the  model’s  content  validity.  More  specifically,  the  crew  size, 
sea  state,  average  crew  pace,  and  workday  length  variables  all  seemed  to  respond 
properly  in  direction  and  magnitude  in  response  to  the  variations  introduced.  The 
results  of  the  various  reliability  calculations  also  seem  promising.  However,  due 
to  the  novelty  and  uniqueness  to  this  model,  it  appears  that  more  extensive  tests 
and  analysis  is  required.  Real  mission  data,  as  opposed  to  the  high  equipment  fail- 
ure probability  and  artificial  sequencing  of  scheduled  events  employed  in  the  test 
data  set,  are  required  for  a more  definitive  evaluation  of  these  metrics. 

Additional  calibration  and  testing  of  the  present  model,  which  represents  an 
adaptation  of  the  Applied  Psychological  Services'  intermediate  size  crew  model 
(Siegel,  Wolf,  & Fischl,  1969;  Siegel,  Wolf,  & Cosentino,  1971;  Siegel,  Lautman, 

&.  Wolf,  1972)  is  currently  being  performed.  However,  when  one  couples  the  pres- 
ent results  with  the  results  of  the  prior  sensitivity  tests  (Siegel,  Wolf,  & Cosentino, 

1971)  and  the  prior  tests  of  the  validity  of  the  model  (Siegel,  Lautman,  & Wolf, 

1972) ,  there  is  considerable  basis  for  believing  that  a useful  method  is  evolving. 

We  note  in  this  regard  that  additional  efforts  which  will  test  further  the  empirical 
validity  of  the  present  model  are  anticipated  by  Applied  Psychological  Services  in 
the  immediate  future. 


Stochastic  vs.  Deterministic  Predictive  Methods 

The  present  approach  is  based  on  the  belief  that  human  behavior  in  dynam- 
ic social  and  work  situations  cannot  be  represented  by  deterministic  methods.  The 
approach  holds  that  the  social  and  work  situations  contain  considerable  random 
variation  and  that  such  variation  must  be  represented  in  any  predictive  technique 
which  is  concerned  with  these  situations.  The  logic  of  the  stochastic  modeling  ap- 
proach is  also  based  on  the  contention  that  direct,  unidirectional  cause-effect  re- 
lationships are  seldom  found  in  social  and  work  situations.  It  would  be  extremely 
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pleasant  for  the  behavioral  scientist  if  such  direct  relationships  existed.  Nonethe- 
less, to  argue  for  such  relationships  is  to  argue  against  the  whole  of  individual  dif- 
ferences in  ability,  motivation,  and  attitudes. 

Moreover,  models  of  the  type  here  involved  possess  certain  diagnostic  or 
experimental  value.  They  allow  answers  to  questions  like:  What  would  happen  if  the 
system  is  manned  in  such  and  such  a manner?  What  would  happen  if  I increased  or 
decreased  the  length  of  the  workday  or  the  physical  workday  of  the  crew?  Deter- 
ministic methods,  by  and  large,  do  not  allow  such  experimentation.  In  this  sense, 
we  hold  that  it  is  not  enough  to  know  that  a given  system  reliability  will  probably  be 
attained.  It  is  equally  important  for  a technique  to  provide  insight  into  areas  for 
required  remedial  action.  Otherwise  hit  and  miss  methods  will  be  employed.  Such 
methods  fail  to  possess  favorable  cost/effectiveness  due  to  the  time  and  effort  in- 
volved in  their  actuation.  They  also  do  not  allow  the  systematic  analysis  of  the  com- 
plex interactions  among  subunits  which  themselves  may  be  nondeterministic. 


Summary  and  Conclusions 

This  report  presented  a computer  based,  stochastic,  man-machine  simula- 
tion model  designed  to  predict  and  describe  the  performance  of  intermediate  size 
crews  and  to  relate  that  performance  to  the  reliability  of  both  the  human  and  equip- 
ment components  in  the  system.  The  rationale  underlying  the  selection  of  variables 
to  be  simulated,  the  internal  logic  of  each  variable,  and  the  expected  interactions 
were  all  described.  Specific  improvements  in  model  capabilities  in  terms  of  both 
increased  storage  capacities  and  the  introduction  of  new  variables  and  logic  were 
explicitly  detailed  and  related  to  the  calculation  of  human,  equipment,  and  system 
reliability  metrics.  Flow  charts,  variable  descriptions,  and  the  actual  model  pro- 
gram (which  is  currently  still  being  enhanced  were  also  provided.  ' 

The  sensitivity  of  the  model  was  also  tested  and  evaluated.  Variation  in 
several  key  variables  (such  as  crew  size  and  workday  length)  served  as  the  basis 
for  this  analysis.  The  results  of  the  test  and  analysis  suggest  that  a reasonable 
start  had  been  made  toward  the  goal  of  developing  a stochastic  modeling  technique 
for  quantifying  reliability  and  more  generally  for  providing  a vehicle  for  effective 
system  planning  relative  to  a variety  of  personnel  planning  situations. 

Specific  model  modifications  and  improvements  which  were  implemented  in- 
clude, but  are  not  limited  to: 

• extension  of  the  number  of  scheduled,  repair,  and  emer- 
gency events 

• incorporation  of  the  concept  of  event  family  for  both 
scheduled  and  repair  events  allowing  fine  grain  analysis 
of  event  performance  data 


108 


• introduction  of  the  concept  of  event  type  data  allowing 
the  analyst  almost  an  unlimited  set  of  parameter  val- 
ues which  can  be  used  in  any  run  and  which  can  provide 
a "bank"  of  parameter  values  which  can  be  used  for  any 
event 

• development  of  metrics  for  quantifying  reliability  for 
humans  and  techniques  for  merging  such  values  with 
typical  equipment  reliability  data 

• inclusion  of  the  option  of  introducing  shifts  into  the  work- 
day 

• tracking  of  consumables  on  a units  level  (’’spare  parts”) 


Further  refinements  of  the  model  are  necessary  and  are  currently  being 
implemented.  These  will  improve  the  model1  s fidelity  to  real  life  events  and  its 
internal  consistency.  Validation  studies  are  also  required.  These  are  also  plan- 
ned in  the  immediate  future.  Nonetheless,  the  use  of  the  model  has  been  demon- 
strated and  the  model  can  be  expected  to  be  of  utility  to  the  system  analyst  both  in 
the  design  and  test  of  new  systems,  as  well  as  in  analysis  of  systems  currently  in 
operation. 
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APPENDIX  A 


FORTRAN  Codes  and  Definitions 


INPUT  Subroutine 


FORTRAN 

Description 

A ASP 
A C P 
ADUR 
ADURIO 
APST 

art 

ASD 

ASDE 

RE 

C AIRY 
CM 
01 

OTRE 

DTE 

nTB 

DUMY 

EDCV 

EMREVT 

EQREVT 

FP1 

TP? 

FP3 

FP4 

FP5 

GBR 

I 

ICLASS 

IDES 

IDF 

IDS 

1 EC 

IECE 

I EDC 

1EFN 

IEFNX 

I ERR 

I ESS 

Average  aspiration 
Average  crew  pace 

Average  duration  of  scheduled  event 
Internal  variable 

Average  psychological  stress  threshold 
Average  repair  time 

Average  standard  deviation  of  repair 
Average  standard  deviation  of  emergency 
Effectivity  of  stress 

Number  of  calories  required  by  average  crewman  per  day 
Catnap  length 

Aplhanumeric  descriptor  array 

Duration  time  between  emergencies 

Duration  time  of  emergencies 

Duration  time  of  repairs 

Internal  variable 

Data  change  value 

Emergency  event  data  set 

Repair  event  data  set 

Internal  variable 

Internal  variable 

Internal  variable 

Internal  variable 

Internal  variable 

Internal  variable 

Internal  variable 

Class 

Description  array 

Day  number  of  next  failure  for  each  piece  of  equipment 

Number  of  duty  shifts 

Expected  energy  consumption 

Expected  energy  consumption  for  emergency 

Data  change  variable 

Family  number 

Temporary  variable 

Error  branch 

Essentiality 
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INPUT  Subroutine 


FORTRAN 

lESSt 
T ET 
1ETYP 
I FO  I 
! GRG 
IH 
I HE 
I I 
IND 
TNT 
IP1 
IP2 
IP3 
1P4 
I P 5 
I PE 

IQR 

IRC 

I RC1 

I RCE 

IRCE1 

IRE 

IREX 

ITEM 

ITER 

J 

JJ 

K 

K1 

K7 

KASE 

KE 

KK 

KON 

<0N1 

KONT 


Description 

Emergency  essentiality 

Essentiality  threshold 

Event  type  number 

Event  number  in  family 

Internal  array 

Event  hazard  class 

Event  hazard  class  (emergency) 

Index  variable 

Printout  option  indicator  array 

Event  code 

Internal  variable 

Internal  variable 

Internal  variable 

Internal  variable 

Internal  variable 

Prerequisite  event 

Equipment  list 

Consumable  rate  of  expenditure  (units/hours) 

Consumable  rate  of  expenditure  (units) 

Consumable  rate  of  expenditure  (units/hours) — emergencies 

Consumable  rate  of  expenditure  (units) — emergencies 

Number  of  repair  events 

Repair  event  number  maximum 

Temporary  variable 

Iteration  number 

Index  variable 

Index  variable 

Type  of  emergency 

Physical  capacitation  fraction 

Derating  constant 

Case  number 

Event  end  type 

Index  variable 

Initial  level  of  consumables  (units/hours) 

Initial  level  of  consumables  (units) 

Threshold  consumables  (units/hours) 
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INPUT  Subroutine 


FORTRAN 

KONTl 

LOOM 

LODMfc 

HAXSL 

MEN 

mm 

MPI 

N 

ND 

NDBE 

ndnax 

NDS 

NEME 

NE^Rfc 

NFP1 

NFP2 

NFP3 

NFP4 

NFP5 

N I F 

N J Pi 

N I P 2 

MJP3 

NJP4 

N I P5 

N I OR 

NOSE 

NREO 

NREOE 

NTYPES 

NX 

PARAM 

PERSM 
P I D 

PPFQ 

PPMO 

PPUO 


Description 

Threshold  consumables  (units) 

Mental  load 

Mental  load  for  emergency 
Maximum  sleep 
Crew  composition  array 
Internal  variable 

Average  number  of  man  days  per  incidence  of  physical  incapacitation 
Number  of  iterations 
Number  of  days 

Number  of  days  between  emergencies 
Maximum  number  of  days 
Duty  shift 

Number  of  emergencies 

Number  of  equipments  required 

Internal  variable 

Internal  variable 

Internal  variable 

Internal  variable 

Internal  variable 

Number  of  family 

Internal  variable 

Internal  variable 

Internal  variable 

Internal  variable 

Internal  variable 

Equipment  used  array 

Number  of  scheduled  events 

Number  of  men  required  by  type 

Number  of  men  required  by  type  for  emergency 

Number  of  types 

Next  event  number  for  each  alternative 
Common  block 
Common  block 

Average  duration  of  physical  incapacity 
Per  cent  fully  qualified  in  primary  specialty 
Per  cent  moderately  qualified  in  primary  specialty 
Per  cent  unqualified  in  primary  specialty 


INPUT  Subroutine 


FORTRAN 

PRB 

PTT 

PTTT 

PWRRT 

RELH 

«ELI 

RTU 

SCMEVT 

SESTa 

SIGWT 

SLEEP 

spfq 

SPMQ 

spuo 

ST 

TFAT 

TL 
TS 
T Si 
TSE 
TSE1 
TSR 
TSRl 
TUI 
TYPE 
MORK1 
U0RK2 
WT 
7.PC 


Description 

Probability  of  each  alternative  path 
Cross  training  probability  table 
Common  block 

Average  short  term  power  output 
Equipment  reliability 
Intermittent  reliability 
Repair  touchup  code 
Internal  variable 
Sea  state 

Standard  deviation  of  body  weight 

Number  of  hours  since  last  eight  hour  sleep  period 
Per  cent  fully  qualified  in  secondary  specialty 
Per  cent  minimally  qualified  in  secondary  specialty 
Per  cent  unqualified  in  secondary  specialty 
Earliest  starting  time  allowed 
Fatigue  threshold 

Time  limit  by  which  event  must  be  completed 
Consumable  threshold  set  identifier  (units/hours) 

Consumable  threshold  set  identifier  (units) 

Threshold  set  for  consumables  below  which  event  is  ignored  (units/hours) 

Threshold  set  for  consumables  below  which  event  is  ignored  (units) 

Threshold  set  for  consumables  below  which  emergency  is  ignored  (units/hours) 

Threshold  set  for  consumables  below  which  emergency  is  ignored  (units) 

Intermittent  reliability 
Internal  variable 

Number  of  hours  worked  after  which  no  new  work  assignment  is  made 
Number  of  hours  worked  after  which  no  new  work  is  authorized 
Mean  body  weight 
Physical  capability  constant 
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FORTRAN  Description 


ft  ASP 

ABS 

ACAL 

A CP 

ADUR 

ADUR2 

ADURIO 

AEPL 

AMAXl 

AM1N1 

APA 

APST 

APW 

ART 

ASD 

ASDE 

ASP 

ATEM 

RE 

BLANK 

STEM 

CAL 

calr 

calry 

CART 

CASP 

CCAL 

CCC 

CC1 

COT 

CML 

CMLMX 

CN 

CTFM 
CUT 
0 1 
OS 

OTBE 


Average  aspiration 
Absolute  value 

Calories  expended  since  last  slept  for  each  man  in  crew 
Average  crew  pace 

Average  duration  of  scheduled  event  (hours) 

One  half  of  average  duration 

Average  duration  of  scheduled  event  in  type  data 
Average  equipment  performance  level 
Maximum  value 
Minimum  value 

Average  performance  adequacy 
Average  psychological  stress  threshold 

Average  physical  workload  for  the  day  for  each  man  in  crew 

Average  repair  time 

Standard  deviation  of  ADUR 

Average  standard  deviation  (emergency) 

Level  of  aspiration  at  beginning  of  iteration  for  each  man  in  crew 
Temporary  variable 

Effectivity  stress  on  performance  on  a no-stress  state 
Temporary  variable 
Temporary  variable 

Average  calories  expended  per  day  for  each  man  in  crew 
Intermediate  calculation  used  in  crew  selection  process 
Number  of  calories  required  by  average  crewman  per  day 
Current  average  repair  time 

Current  level  of  aspiration  for  each  man  in  crew 

Calories  expended  for  the  event  for  each  man  in  crew 

Current  crew  competence 

Initial  crew  competence 

Current  downtime 

Crew  mental  load 

Maximum  crew  mental  load  obtained  for  an  event  during  the  day 
Catnap  length.  Below  considered  rest.  Above  is  sleep. 

Temporary  variable 
Current  uptime 

Alphanumeric  descriptor  array 

Amount  of  sleep  for  the  day  for  each  man  in  crew 
Duration  time  between  emergencies 
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FORTRAN 

DTE 

DTEH 

pTR 

EA 

EC 

EDCV 

EF 

EH 

EMTBF 

EMTTR 

EPFFF 

EPL 

ES 

ESSS 

FTEM 

EXER 

FAT 

FD1FF 

FLIC 

FLIC 

FLOAT 

FUNC 

GASP 

GPACE 

GPCC 

GPERF 

GSTR 

5STRM 

HEADR 

HR 

HRSE 

hrsr 

HRSS 

HSLS 

I 

I AA 
I ABC 
IC 


Description 

Duration  time  of  emergencies 
Temporary  variable 
Duration  time  of  repair 
Goodness  of  aspiration  value 
Goodness  of  competence  value 
Data  change  valye 

Goodness  of  physical  capability  value 
Event  hazard 

Equipment  meantime  between  failures 

Equipment  meantime  to  repair 
Equipment  performance  effectiveness 
Equipment  performance  level 
Goodness  of  stress  value 
Temporary  variable 
Temporary  variable 

Overexertion  factor  used  in  physical  capability  calculation 
Fatigue  level  for  each  man  in  crew 
Failure  difference 
Number  of  men  in  crew 

Number  of  crew  members  in  group  participation  in  current  event 

Conversion  to  real 

Function 

Group  aspiration  level 

Group  pace  value  used  in  performance  time  calculation 

Group  physical  capability 

Group  performance 

Group  stress 

Group  stress  threshold 

Program  header 

Hazard  ratio  used  in  SI  calculations 

Total  man  hours  worked  on  emergency  events  for  the  day 
Total  man  hours  worked  on  repair  events  for  the  day 
Total  man  hours  worked  on  scheduled  events  for  the  day 
Number  of  hours  since  last  slept  for  each  man  in  crew 
Index  variable 

Number  of  men  in  crew  for  each  echelon 
Temporary  variable 
Maximum  number  of  crewmen 
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FORTRAN 

ICF 

! CL  ASS 
tCML 

less 

1 DC 

IDCMX 

IDE 

IDF 

IDS 

IE 

I EC 

IECE 

I EDC 

IEFN 

IEIE 

IEMAX 

I ESS 

IESSE. 

IET 

ietyp 

I EVENT 
IFIRST 
IFOI 
IG 

IGAP 

IGIND 

IGNOP 

IH 

I HE 

I I 

I I I 

I I IP1 

IND 

INIF 

INIQ 

INI 

INVS 
1 0 1 F 


Description 

Command  echelon  for  each  crewman 
Class 

Event  with  maximum  CML  for  the  day 
Current  sea  state 

Calories  expended  for  the  day  for  each  crewman 
Event  with  maximum  calories  expended  for  the  day 
Day  number  of  next  occurrence  for  each  emergency  event 
Day  number  of  next  failure  for  each  piece  of  equipment 
Number  of  duty  shifts 
Event  number 

Expected  energy  consumption  during  event  (calories  per  hour) 

Expected  energy  consumption  during  emergency  event  (calories  per  hour) 
Data  change  variable 
Family  number 

Counter  for  number  of  different  events  attempted  for  the  day 

Maximum  number  of  events 

Event  essentiality 

Emergency  event  essentiality 

Essentiality  threshold.  Determines  ignores. 

Event  type  number 

Event  to  be  simulated  for  the  day 
Temporary  variable 
Event  number  in  family  code 
Group  member 
Internal  variable 

Indicator  for  cause  of  ignored  event 
Indicator  for  ignored  event  (1=  event  ignored) 

Event  hazard  class  (1-3=  low,  4-6=  medium,  7-9=  heavy) 

Event  hazard  class  (emergency) 

Index  variable 
Index  variable 
Index  variable 

Indicators  for  output  recording  options 
Internal  variable 
Internal  variable 

Event  code  (1=  normal,  2=  training) 

Inverse  pointer  array 
Operator  induced  failure 
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FORTRAN 

IPE 

1 PFT 

IP1 

IPS 

IPSS 

IPTR 

IQMAX 

IQP 

IRC 

I RCl 

IRCE 

IRCE1 

IRE 

ISIE 

ISS 

1ST 

ISW1 

ITAP 

ITEM 

ITER 

ITRY 

I TYPE 

J 

JI 

JJ 

JNDS 

K 

K1 

K7 

KA 

KASE 

KE 

KIND 

KK 

KM  AX 

KON 

KON1 


Description 
Prerequisite  event 
Previous  event  indicator 
Incomplete  processing  indicator 
Primary  specialty  for  each  crewman 

First  20  slots  same  as  IPS,  second  20  slots  same  as  ISS 
Pointer  array  for  events 

Maximum  number  of  pieces  of  equipment  or  repair  events 
Equipment  list 

Consumable  rate  of  expenditure  (units/hours) 

Consumable  rate  of  expenditure  (units) 

Consumable  rate  of  expenditure  for  emergencies  (units/hours) 

Consumable  rate  of  expenditure  for  emergencies  (units) 

Number  of  repair  events 
Internal  variable 

Secondary  specialty  for  each  man  in  crew 

Internal  variable 

Internal  variable 

Tape  option 

Temporary  variable 

Current  interaction 

Counter  for  number  of  attempts  with  current  event 

Type  for  which  man  was  selected  for  event  for  each  man  in  group 

Internal  variable 

Internal  variable 

Internal  variable 

Internal  variable 

Type  of  emergency 

Fraction  to  which  a man's  physical  capability  is  reduced 
Derating  constant  for  acceptable  performance 

Number  of  crew  members  available  for  selection  for  current  event 
Case  number 

Event  end  time  type  (1=  fixed  end,  2=  variable  end) 

Indicator  in  group  selection  process  (0=  searching  primary  specialties,  l=secondary 
Internal  variable 

Maximum  number  of  types  of  emergency  events 
Initial  level  of  consumable  (units/hours) 

Initial  level  of  consumable  (units) 
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to 

CJl 


FORTRAN  Description 


<0NC 

<0NC1 

<0NE 

X0NE1 

«0NT 

*0NTl 

KOUNT 

KTFMP 

LI 

LL 

LMAX 

LMAXi 

LODM 

LODME 

ISHIFT 

H 

HA 

HAT 

HAVA  I L 

HAXSL 

HAXST 

HAXSTE 

HCWSN 

hen 

HPCC 

HP  I 

N 

ND 

NDAVS 

NDBE 

NDMAX 

NDS 

NE 

NEME 

NEQRb 

NFALE 

NIF 

NIGNR 

NIOR 

NKASES 


Current  consumable  level  foreach  consumable  (units/hours) 

Current  consumable  level  for  each  consuamble  (units) 

Consumables  expended  for  the  event  for  each  man  in  group 
Consumables  expended  (units) 

Consumable  threshold  (units/hours) 

Consumable  threshold  (units) 

Internal  variable 
Temporary  variable 

Crewman  chosen  as  leader  for  this  event 
Internal  variable 

Maximum  number  of  consumables  (units/hours) 

Maximum  number  of  spare  parts  consumables  (units) 

Event  mental  load  (1-3  light,  406  medium,  7-9  heavy) 

Mental  load  (emergencies) 

Internal  variable 
Crewman  number 

Man  selected  for  the  event  by  type 
Man  selected  for  the  event 
Man  selected  for  the  event 
Maximum  sleep  permitted  per  day  (hour) 

Maximum  stress  obtained  for  any  event  during  the  day 
Event  on  which  maximum  stress  was  obtained 

Indicator  for  man  selected  for  the  event  (0=  not  selected;  1=  selected 
Crew  composition,  number  of  men  of  each  type  by  crew  selection 
Maximum  physical  capability  for  the  day  for  each  man  in  crew 
Average  number  of  man  days  per  indices  of  physical  incapacitation 
Number  of  mission  iterations  per  computer  run 
Number  of  days,  current  number 

Total  number  of  days  in  the  simulation  (updated  after  each  iteration  completed  ) 
Number  of  days  between  emergencies 
Maximum  number  of  days 
Duty  shifts 

Number  of  emergency  events  to  be  simulated  this  day 
Temporary  variable 

Number  of  equipments  (emergencies) 

Number  of  failures  for  this  day 
Number  in  family 

Number  of  ignored  events  for  this  day 
Number  of  equipments  in  repair 
Number  of  cases 
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FORTRAN 

MN 

NOFAll 

MOIF 

NOIFT 

‘JOSE 

MOSEi 

‘JOSUC 

MPI 

MPRFN 

MPTR 

MR 

mrept 

MREO 

MREQfc 

MRFQT 

MS 

MSUC1 

MSUC2 

MTE 

MTMAX 

MU 

MUMFAM 

MX 

PA 

PACE 

PAF 

PC 

PCC 

PCDUM 

PCOM 

PEA 

PEFF 

PERF 

PI 

P I 2 

PID 

PPFO 

PPMO 

PPUQ 


Description 
Temporary  variable 

Number  of  failures  for  iteration  for  each  crewman 
Number  of  operator  induced  failures  (counter) 

Total  number  of  operator  induced  failures 
Number  of  scheduled  events 
Temporary  variable 

Number  of  successes  for  iteration  for  each  man  in  crew 
Number  of  crewmen  to  be  incapacitated  this  day 
Number  of  events  performed 
Pointer  array  if  in  event  sequencing 

Repair  number,  number  of  repair  events  to  be  simulated  this  day 

Number  of  events  repeated  this  day 

Number  of  men  of  each  type  required  by  event 

Number  of  men  of  each  type  required  for  an  emergency 

Number  of  men  required  for  the  event  for  each  type 

Sickness  indicator  for  each  man  in  crew  (0=  well,  1=  sick) 

Number  of  successes  on  the  first  try  this  day 

Number  of  successes  on  the  second  try  this  day 

Number  of  different  events  to  be  simulated  this  day 

Maximum  number  of  types  of  personnel 

Number  of  successes  for  the  day  for  each  crewman 

Number  of  families 

Next  event  number  for  each  alternative 

Performance  adequacy 

Working  pace  for  each  man  in  crew 

Pace  adjustment  factor  used  in  calculations  GPACE 

Physical  capability  at  iteration  start  for  each  crewman 

Current  physical  capability  for  each  crewman 

Equipment  to  PPFQ,  PPMQ.PPU,  SPFQ,  SPMQ,  SPUQ 

Primary  competence  for  each  crewman 

Temporary  variable 

Performance  effectiveness 

Performance  level  for  each  crewman 

Physical  incapacity  for  each  crewman 

Number  of  future  days  of  physical  incapacity  for  each  crewman 
Average  duration  of  physical  incapacity  (days) 

Per  cent  of  crew  fully  qualified  in  primary  specialty 
Per  cent  of  crew  minimally  qualified  in  primary  specialty 
Per  cent  of  crew  unqualified  in  primary  specialty 


Main  Program 


CO 

-o 


FORTRAN 

PR9 

PSCOW 

PSESIC 

PT 

PTR 

PTT 

PWP 

PWRRT 

RELH 

REU 

RTEMP 

RTU 

RY2 

SCOM 

SEE 

SESTA 

sr 

sfdiff 

sfthrs 

SGEM 

si 

S 1 DC 

SJDCMX 

SIGWT 

sleep 

SPFQ 

SPL 

SPMQ 

SPUO 

SRL 

ST 

STAR 

STRM 

SUCC 

tavail 

TEW 

TEM1 

TEM2 

TEHJ 


Description 

Probability  of  each  alternative  path  after  current  event 
PCOM  (1-20)  and  SCOM  (1-20) 

Per  cent  seasick 

Performance  time  for  each  event 

Sequential  order  of  events  for  the  day 

Cross  training  probability  table.  Given  primary  by  secondary 
Average  short  term  power  output  rate  for  each  crewman 

Average  short  term  power  output  rate  for  average  crewman  (calories/hour) 
Equipment  reliability 
Intermittent  reliability 
Temporary  variable 

Action  if  event  performance  is  unsatisfactory  (1=  repeat,  2=  touchup , 3=  no  action) 

Action  number  from  uniform  distribution 

Secondary  competence  for  each  man  in  crew 

Efficiency  factor 

Sea  state 

Slowness  factor  used  in  computing  GPACE 
Failure  difference 
Shift  hours 

System  general  effectiveness  measure 
Safety  index 

Total  calories  expended  this  event 

Maximum  SIDC  for  any  event  this  day 

Standard  deviation  of  work  time 

Number  of  hours  since  last  8 hour  sleep  period 

Per  cent  of  crew  fully  qualified  by  average  crewman  at  mission  start 
System  performance  level 

Per  cent  of  crew  minimally  qualified  in  secondary  specialty 
Per  cent  of  crew  unqualified  in  secondary  specialty 
System  reliability  level 
Earliest  starting  time  allowed  (hours) 

Star 

Psychological  stress  for  each  crewman 
Evaluation  indicator  (S=  successful,  U=  otherwise) 

Testing  criterion  for  each  man  eligible  for  the  event 

Total  event  hazard  for  the  day 

Temporary  variable 

Temporary  variable 

Temporary  variable 


Main  Program 


FORTRAN  Description 


TEMP 
TF  AT 
THW 
TULt 
TL 

TPCOM 

TPSCOM 

TS 

TS1 

TSCOM 

TSE 

TSE1 

TUI 

TW 

TWP 

TWS 

USH 

USHT 

V 

WH 

WORK1 

W0RK2 

WT 

YU 

Z 

Z1 

12 

ZC 

ZPC 


Temporary  variable 

Fatigue  threshold  below  which  sleep  is  not  authorized 
Total  hours  worked  for  the  crew  for  the  day 
Program  title 

Time  limit  by  which  event  must  be  completed  (hours) 

Temporary  primary  competence 
Temporary/secondary  competence  array 
Consumable  threshold  set  identifier  (units/hour) 

Consumable  threshold  set  identifier  (units) 

Temporary  secondary  competence 

Consumable  threshold  for  emergencies  (units/hours) 

Consumable  threshold  emergencies  (units) 

Intermittent  failure  rate 

Working  time  for  the  day  for  each  crewman 
Working  time  in  primary  specialty  for  each  crewman 
Working  time  in  secondary  specialty  for  each  crewman 
Unmanned  station  hours  for  the  current  event 
Total  unmanned  station  hours  for  the  day 

Value  of  time  function  used  in  computing  performance  time 
Time  since  last  event  participation  for  each  crewman,  wait  hours 
Number  of  hours  worked  after  which  no  new  assignments  are  made 
Number  of  hours  worked  after  which  further  work  is  not  authorized 
Mean  body  weight  of  total  population  (lbs) 

Internal  variable 

Last  real  time  worked  this  day  for  each  crewman 
Earliest  time  when  all  group  members  are  available 
Earliest  time  current  event  can  begin 
Real  time  of  completion  for  each  event 
Physical  capability  constant 
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IPUYSM  Function  Subprogram 


FORTRAN 

Description 

IPUYSN 

•< 

PAR 

TEST 

Y 

Uniform  probability  test  function 
Temporary  probability  variable 
Type  of  emergency 
Temporary  variable 
Temporary  variable 

CO 

FBUILD  Function  Subprogram 

FORTRAN 

Description 

FBUIID 

H 

RSLS 

TEM1 

Function  sub  program 
Temporary  variable 
Hours  since  last  slept 
Temporary  variable 
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OUTPUT  Subprogram 


FORTRAN 

A ASP 
A CP 
ADALy 
AEPL 
APA 

apst 

APW 

ASP 

ASPA 

PE 

rAL 

CALRY 

CART 

CART  1 

CASP 

CCAL 

CDT 

CDT1 

Cl 

CML 

CMLMX 

CN 

CUT 

CUT! 

DAL  Y 
D I 
ns 

EDCV 

FMTB* 

EMTTK 

FPEf> 

PPL 

fat 

FD 

FLIC 

FlITfcR 

FLOAT 


Description 

Average  aspiration 

Average  crew  pace 

Internal  array  for  daily  summary 

Average  equipment  performance  level 

Average  performance  adequacy 

Average  psychological  stress  threshold 

Average  physical  workload 

Aspirat ion 

Temporary  aspiration 

Effectivity  jof  stress  on  performance 

Average  calories  expended  per  day  for  each  man  in  crew 

Number  of  calories  required  by  average  crewman  per  day 

Current  average  repair  time 

Internal  array  for  average  repair  time 

Current  aspiration 

Current  calorie  level 

Current  down  time 

Internal  array  for  downtime 

Blanks 

Crew  mental  load 

Crew  mental  load  (maximum) 

Catnap  length 

Current  up  time 

Internal  array  for  uptime 

Output  array 

Alphanumeric  decription  array 
Amount  of  sleep  for  the  day 
Data  change  value 

Equipment  mean  time  between  failures 
Equipment  mean  time  to  repair 
Equipment  performance  effectiveness 
Equipment  performance  level 
Fatigue 

Temporary  variable 

Crew  size  (floating  point) 

Iteration  (floating  point) 

Floating  point 
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OUTPUT  Subprogram 


FORTRAN 

FNTfc 

WRSE 

HRSR 

MRSS 

MSLS 

HSLSA 

T 

T AA 

1C 

ICF 

ICMl 

ICSS 

IDALYl 

I DC 

1DCMX 

I EPC 
IFFN 
IE-T 
tetyk 
I F 0 I 

I I t e k 

IHTAb 

1ND 

IPF 

IPS 

IQMAX 

ISS 

ITER 

J 

J I T E R 
K 


Description 

Number  of  total  events  (floating  point) 

Hours  worked  on  emergency 

Hours  worked  on  repairs 

Hours  worked  on  scheduled  events 

Hours  since  last  slept 

Reinitialization  of  hours  since  last  slept 

Internal  variable 

Crew  echelon  number 

Maximum  number  of  crewmen 

Command  echelon 

Crpw  mental  load 

Current  sea  state 

Internal  array  for  daily  summary 

Data  change 

Data  change  maximum 

Data  change  variable 

Family  number 

Essentiality  threshold 

Event  type  number 

Event  number  in  family  code 

Temporary  variable 

Output  array 

Indicators 

Prerequisite  event 

Primary  specialty 

Maximum  number  of  pieces  of  equipment  or  repair  events 

Secondary  specialty  for  each  man  in  crew 

Iteration 

Temporary  variable 

Internal  array  for  daily  summary 

Type  of  emergency 


OUTPUT  Subprogram 


CO 

to 


FORTRAN  Description 


*1 

K7 

KK 

KON 

KOMI 

KOMC 

K0MC1 

KOMT 

K0NT1 

MAXSL 

maxst 

MAXSTE 

MPCC 

N 

*1S1 

MQ 

MDAYb 

MD^AX 

ME 

MEME 

MEORt 

MFALt 

MIF 

NIRNH 

MOSE 

MPRFM 

MR 

MRE I 
NREPT 
MSUCl 
MSUC2 


Fraction  to  which  a man's  physical  cabality  is  reduced  after  daily  quota  is  done 
Derating  constant  for  acceptable  performance 
Internal  variable 

Initial  level  of  consumable  (units/hours) 

Initial  level  of  consumables  (units) 

Current  consumable  level  (units/hours) 

Current  consumable  level  (units) 

Consumable  threshold  (units/hours) 

Consumable  threshold  (units) 

Maximum  sleep  permitted  per  day 

Maximum  stress  for  any  event 

Event  of  maximum  stress 

Maximum  physical  capability 

Number  of  iterations 

Internal  variable 

Number  of  days 

Days  in  simulation 

Maximum  number  of  days 

Number  of  emergency  events 

Temporary  variable 

Number  of  equipments  emerging 

Number  of  failures  this  day 

Number  in  family 

Number  of  events  ignored 

Number  of  scheduled  events 

Number  of  events  performed 

Number  of  repairs 

Total  repairs  for  the  run 

Number  of  repeats 

Number  of  successes  in  first  try 

Number  of  successes  in  second  try 


OUTPUT  Subprogram 


CO 

cc 


FORTRAN  Descript  ion 


mTf 

MTIPfc. 

MU 

NX 

OUTA 

HUTB 

PACE 

PACEA 

PC 

P C A 

PCP 

PCOM 

P COM  A 

PETF 

PERF 

PI 

PI? 

P I A 
PRR 
PWR 
PWRR  I 

REL  I 
PEMTfcl 
PEMTK 
PTU 
SCOM 
SCOM  A 
SESTA 
SFDU  F 
SGEM 
*1 

QincMX 
SLFER 
SP  L 


Total  number  of  events 

Number  of  men  in  each  type 

Number  of  daily  successes  by  crewman 

Next  event  number  for  each  alternative 

Internal  array 

Output  array 

Working  pace 

Reinitialization  of  work  pace 
Physical  capability 

Reinitialization  of  physical  capability 
Current  physical  capability 
Primary  competence 

Reinitialization  of  primary  competence 
Performance  effect iveness 
Performance  level  by  crewman 
Physical  incapability 

Number  of  future  days  of  physical  incapacity  for  each  crewman 
Reinitialization  of  physical  capacity  by  crewman 
Probability  for  each  alternative  path  after  current  event 
Average  short  term  power  output  by  crewman 
Average  short  term  power  output  for  average  crewman 
Intermittent  reliability 

Temporary  variable  for  equipment  mean  time  between  failure 

Temporary  variable  for  equipment  mean  time  to  repair 

Action  if  event  performance  is  unsatisfactory 

Secondary  competence 

Secondary  competence  reinitialized 

Sea  state 

Failure  difference 
General  system  measure 
Safety  index 

Maximum  calories  expended  for  this  event 
Number  of  hours  since  last  8 hour  sleep  period 
System  performance  level 
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OUTPUT  Subprogram 


FORTRAN 

SR|_ 

ST 

STRM 

T3 

TDALY 

TEN 

TEM1 

TEM3 

TFAT 

T 1 I TfcR 

TL 

TOT 

TOUT* 

TPCOM 

TS 

TSl 

TSCOM 

TW 

TWP 

TWS 

USHT 

WORK1 

WORK* 

ZTFM 


Description 

System  reliability  level 

Earliest  starting  time  allowed  (hours) 

Stress  threshold 
Temporary  variable 
Daily  total  output  array 
Total  daily  event  hazard 
Temporary  variable 
Temporary  variable 
Fatigue  threshold 
Iteration  summary  array 

Time  limit  by  which  event  must  be  completed  (hours) 

Internal  variable 
Internal  array 

Temporary  primary  competence 

Consumable  threshold  set  identification  (units/hours) 

Consumable  threshold  set  identifier  (units) 

Temporary  secondary  competence 
Time  worked 

Time  worked  in  primary 
Time  worked  in  secondary 
Unmanned  station  hours 

Number  of  hours  worked  after  which  no  new  assessment  is  made 
Number  of  hours  worked  after  which  further  work  is  not  authorized 

Temporary  variable 


APPENDIX  B 


Input  Data  Formats 
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APPENDIX  B 


INPUT  DATA  FORMATS 


Title  Cards 
Description 

Card  1 Number  of  iterations 

Card  2 Title 

Card  3 Tape  input  option 

Number  of  days  simulated 

Parameter  Names 

(card  4 and  on) 

Average  psychological  stress  threshold 
Hours  worked  after  which  no  new  assignments  are  made 
Hours  worked  after  which  further  work  is  unauthoriz- 
ed 

Hours  since  last  sleep  period  by  average  crew 
member  at  start  of  mission 
Catnap  length-hours  below  which  is  rest,  and  above 
which  is  sleep 

Maximum  sleep  permitted  per  day  (hours) 

Fatigue  threshold-below  which  sleep  is  not  authorized 
Average  crew  space 

Number  of  calories  required  by  average  crew  member 
per  day 

Average  short  term  power  output  for  average  crew 
member  (calories/hour) 

Derating  constant  for  acceptable  performance 
Fraction  to  which  man's  physical  capability  reduced 
when  daily  quota  done 
Effect  of  stress  on  performance 
Initial  aspiration  level 


FORTRAN  Format  Value 


Initial  value  of  consumable: 
(units/hour) 


1. 

2. 

3.. 

4_ 

5_ 

6_ 

7._ 

8_ 

9_ 

10 


NKASES 

HEADR 

ITAP 

NDMAX 

FORTRAN 


APST 
WORK  1 

WORK  2 
SLEEP 

CN 

MAXSL 

TFAT 

ACP 

CALRY 

PWRRT 

K7 

K1 

BE 

AASP 

K0N(1) 
KON ( 2 ) 
KON ( 3 ) 
K0N( 4) 
KON ( 5 ) 
KON ( 6 ) 
K0N( 7 ) 
KON ( 8 ) 
KON ( 9 ) 
KON (10) 


13 

12A6 

13 

13 


72  spaces 


Value 


$ PAR AM 
NFP2/FP2= 
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Title  Cards 
Description 


FORTRAN 


Consumable  threshold  for  consumable  1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1 , 
2 

3 

4 

5 

6 

7 

8 
9 

10 


threshold  1 K0NT(1,1) 

KONT (2,1) 
Kont(3,l) 
KONT (4,1) 
KONT (5,1) 
KONT (6,1) 
KONT (7,1) 
KONT (8,1) 
KONT (9,1) 
KONT(10 ,1 ) 

threshold  2 KONT (1,2) 

KONT ( 2 ,2  ) 
KONT (3,2) 
KONT ( 4 , 2 ) 
KONT (5,2) 
KONT (6,2) 
KONT (7 , 2 ) 
KONT (8,2) 
K0NT( 9 ,2 ) 
KONT (10,2) 

threshold  3 KONT (1,3) 

KONT ( 2 , 3 ) 
KONT (3,3) 
KONT (4,3) 
K0NT( 5,3) 
KONT (6,3) 
KONT (7,3) 
K0NT( 8,3) 
KONT (9,3) 
K0NT( 10,3) 

threshold  4 KONT (1,4) 

KONT (2,4) 
KONT (3,4) 
K0NT( 4,4) 
KONT (5  ,4 ) 
KONT ( 6 ,4) 
KONT( 7,4) 
KONT ( 8 , 4 ) 
K0NT( 9,4) 
K0NT( 10,4) 

threshold  5 K0NT(l,5) 

KONT ( 2 , 5 ) 
KONT( 3,5 ) 
KONT( 4,5) 
KONT (5,5) 
KONT (6,5) 
KONT( 7,5) 
KONT (8,5) 
KONT (9,5) 
KONT ( 10,5 ) 


VALUE 
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FORTRAN 


VALUE 


Title  Cards 
Description 


Consumable  threshold  for  consumable  1 , 

2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1, 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1 , 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1, 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1 , 
2 

3 

4 

5 

6 

7 

8 
9 

10 


threshold  6 KONT (1,6) 

K0NT( 2,6) 
KONT (3,6) 
K0NT(4,6) 
KONT (5,6) 
KONT (6,6) 
KONT (7, 6) 
KONT (8,6) 
K0NT( 9,6) 
K0NT( 10,6) 

threshold  7 K0NT(1,7) 

K0NT( 2,7) 
K0NT( 3,7) 
K0NT( 4,7) 
K0NT(5 ,7 ) 
KONT (6,7) 
K0NT( 7,7) 
K0NT( 8,7) 
KONT (9,7) 
K0NT( 10,7) 

threshold  8 K0NT(1,8) 

KONT (2, 8) 
KONT (3,8) 
K0NT( 4,8) 
KONT (5,8) 
KONT (6, 8) 
KONT (7,8) 
KONT (8,8) 
KONT (9, 8) 
KONT( 10,8) 

threshold  9 K0NT(1,9) 

KONT (2, 9) 
KONT (3, 9) 
KONT (4,9) 
KONT (5, 9) 
K0NT( 6,9) 
K0NT( 7,9) 
K0NT(8 ,9) 
KONT (9, 9) 
KONT (10,9) 

threshold  10  K0NT(1,10) 

KONT (2,10) 
KONT (3,10) 
K0NT(4,10) 
KONT (5, 10) 
KONT (6,10) 
KONT ( 7 ,10 ) 
K0NT( 8,10) 
K0NT( 9,10) 
KONT (10,10) 
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FORTRAN 


VALUE 


Title  Cards 
Description 


1, 

2. 

3. 

4. 

5. 

6 


8 

9 

10 


Consumable  threshold  for  consumable  1 , threshold  1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1 , threshold  2 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1 , threshold  3 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1,  threshold  4 
2 

3 

4 

5 

6 

7 

8 
9 

10 


Initial  value  of  consumable: 
( units ) 


K0N1(1) 
K0N1(2) 
K0N1 (3) 
K0N1 (4) 
K0N1( 5) 
K0N1(6) 
K0N1(7) 
K0N1( 8 ) 
K0N1 ( 9 ) 
KONl(lO) 


KONTl(l) 
K0NT1(2) 
K0NT 1(3) 
K0NT1( 4 ) 
KONTK  5) 
K0NT1( 6) 
KONTK  7) 
KONTK  8) 
KONTK  9) 
K0NT1(10) 
K0NT1( 1,2) 
K0NTl(l,2) 

K0NT1( 3,2) 
K0NT1( 4 ,2) 
KONTK  5, 2) 
KONTK  6, 2) 
K0NT1(7,2) 
K0NT1( 8,2) 
KONTK  9,2) 
KONTK  10,2) 
K0NT1( 1,3) 
KONT1 (2,3) 
KONTK  3,3) 
K0NT1( 4, 3) 
KONTK  5,3) 
K0NT1(6,3) 
K0NT1(7,3) 
K0NT1( 8,3) 
K0NT1(9,3) 
KONTK  10, 3) 
K0NT1( 1,4) 
KONT  1(2,4) 
KONT  1(3,4) 
KONT  1(4,4) 
KONT  1(5,4) 
KONT  1(6,4) 

K0NTl(7,4) 
KONT i(  8,4) 
K0NTi(  9,4) 
KONTl(  10,4) 
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FORTRAN 


VALUE 


Title  Cards 
Description 


Consumable  threshold  for  consumable  1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1 
2 

3 

4 

5 

6 

7 

8 
9 

10 

consumable  1 
2 

3 

4 

5 

6 

7 

8 
9 

10 


consumable  1 , 
2 

3 

4 

5 

6 

7 

8 
9 

10 


threshold  S 


threshold  6 


threshold  7 


threshold  8 


threshold  9 


K0NT1( 1,5) 
K0NT1( 2,5) 
K0NT1(3, 5 ) 
K0NT1 (4,5) 
K0NT1 (5,5) 
K0NT1 (6,5) 
K0NTK  7,5) 
K0NT1( 8,5) 
K0NT1( 9,5) 
K0NT1 (10,5) 
K0NT1( 1,6) 
K0NT1 (2,6) 
K0NT1( 3,6) 
K0NT1 (4,6) 
K0NT1 (5,6) 
KONT1 (6,6) 
K0NT1( 7,6) 
K0NT1 (8,6) 
K0NT1 (9,6) 
K0NT1( 10,6) 
K0NT1( 1,7) 
K0NT1(2 , 7 ) 
K0NT1 (3,7) 
KONT1 (4,7) 
K0NT1( 5,7) 
KONT1 (6,7) 
KONT1 (7,7) 
K0NT1 (8,7) 
K0NT1( 9,7) 
KONT1 (10,7) 
K0NT1 (1,8) 
K0NT1 (2,8) 
K0NT1 (3,8) 
K0NT1 (4,8) 
K0NT1 (5,8) 
K0NT1( 6 ,8 ) 
K0NT1(7 , 8 ) 
KONT1 (8,8) 
KONT 1(9,8) 
K0NT1( 10,8) 
KONTl( 1,9)) 
KONT1 ( 2,9) 
KONT1 (3,9) 
KONTl( 4,9) 
K0NT1 (5,9) 
K0NT1( 6 , 9 ) 
K0NT1(7, 9) 
KONTl( 8,9) 
K0NT1 (9,9) 
K0NT1 (10,9) 
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Title  Cards 


Description 

FORTRAN 

Consumable  threshold  for  consumable  1,  threshold  10 

K0NT1( 1,10) 

2 

K0NT1 (2,10) 

3 

K0NT1( 3 ,10 ) 

4 

K0NT1( 4 ,10 ) 

5 

KONT1(5,10) 

6 

K0NT1(6,10) 

7 

K0NT1(7,10) 

8 

K0NT1( 8,10) 

9 

K0NT1 (9,10) 

10 

K0NT1( 10 ,10 ) 

Sea  State 

(term  and  height  of  waves  in  feet)  0 — calm,  glassy 

SESTA(l) 

1 — rippled,  0-1 

SESTA( 2 ) 

2 — smooth,  1-2 

SESTA(3) 

3 — slight,  2-4 

SESTA(4) 

4 — moderate,  4-8 

SESTA( 5 ) 

5 — rough,  8-13 

SESTA( 6 ) 

6 — very  rough,  13-20 

SESTA(7) 

7 — high,  20-30 

SESTA( 8) 

8 — very  high,  30-45 

SESTA(9) 

9 — phenomenal,  over 

SESTA(IO) 

45 

Intermittent  reliability — electronic  equipment 

RELI(l) 

Intermittent  reliability — electrical  equipment 

RELI(2) 

Intermittent  reliability — electromechanical  equipment 

RELI (3 ) 

Intermittent  reliabili ty- -mechanical  equipment 

RELI(4) 

Number  of  mission  iterations 

Number  of  iterations  per  computer  run 

N 

Essentiality  threshold,  below  which  an  event  is 

IET 

ignored  (1-100) 

Indicators  for  output  recording  options 

IND(l) 

Print  all  inputs  (1),  or  parameters  only  (0) 

IND( 2) 

Print  (1),  or  don’t  print  (0):  crew  initial  conditions 

IND(3) 

: day  numbers  of  1st.  re- 

IND(4) 

pair,  emergencies 

Print  detailed  event  results  for  all  events  beginning 

IND( 5) 

with  day 

Print  end  of  day  results  for  all  days  beginning  with  day 

IND(6 ) 

Print  (1),  or  don’t  print  (0)  mission  results  by  indivi- 

IND(7 ) 

dual  man 

VALUE 


1.0 


NIP2/IP2= 


$ 
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Title  Cards 
Description 


Mean  body  weight  of  total  population 
Standard  deviation  of  population  body  weight 
%crew  fully  qualified  in  prime  specialty 
%crew  minimally  qualified  in  prime  specialty 
%crew  unqualified  in  prime  specialty 
%crew  fully  qualified  in  second  specialty 
%crew  minimally  qualified  in  second  specialty 
%crew  unqualified  in  second  specialty 
Avg.  N man  days  between  physical  incapacitations 
Avg.  duration  of  incapacity  (days) 

Physical  capability  constant,  a value  yielding  zero 
Physical  capability  due  to  over  exertion 


FORTRAN 


WT 

SIGWT 

PPFQ 

PPMQ 

PPUQ 

SPFQ 

SPMQ 

SPUQ 

MPI 

PID 

ZPC 


VALUE 

$PERSNL 

NFP1/FP1 


Cross  training  probability 

(probability  of  man  with  given  specialty  also  being  trained  in  each  other  specialty). 


prime  specialty 


second  specialty 


Crew  composition 

number  of  men  in  each  specialty  at  each  eschelon  (rank) 


prime  specialty 
4 5 6 7 


10 


eschelon 


MEN( 1-10,1) 
MEN (1-10,2) 
MEN(  1-10,3) 
MENU-10, 4) 


NIP1/IP1= 
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Title  Cards 
Description 

Number  of  duty  shifts 
Crew  duty  shift  assignment 
Man  1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 


FORTRAN  VALUE 


NDS 


IDS( 1 -6,1) 
IDSd-6,2) 
IDS( 1-6,3) 
IDS( 1-6 ,4 ) 
IDS( 1-6 , 5 ) 
IDSd-6,6) 
IDS(l-6 ,7 ) 
IDSd-6,8) 
IDS( 1-6 ,9 ) 
IDS(l-6 ,10 ) 
IDS( 1-6 ,11 ) 
IDS(1-6,12) 
IDS( 1-6 ,13 ) 
IDS( 1-6 ,14 ) 
IDS( 1-6 ,15 ) 
IDS( 1-6 , 16 ) 
IDS(1-6,17) 
IDS(1-6,18) 
IDS(1-6,19) 
IDS(l-6,20) 
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FORTRAN 


VALUE 


Title  Cards 
Description 


Equipment  repair 


Reliability  (days  between  failure) 

RELH 

Intermittent  failure  duration  (hours) 

TUI 

Repair  maximum  duration  (minutes) 

DTR 

For  each  event  in  the  repair  family 

Event  1 Probability  of  next  event 

PRB( 1-3,1 ) 

Data  change  number 

IEDC(1-3,1) 

Data  change  value 

EDCV (1-3,1) 

Event  2 Probability  of  next  event 

PRB(l-3,2) 

Data  change  number 

IEDC(l-3,2) 

Data  change  value 

EDCV (1-3, 2) 

Event  3 Probability  of  next  event 

PRB( 1-3 , 3) 

Data  change  number 

IEDC(l-3,3) 

Data  change  value 

EDCV( 1-3,3) 

Event  4 Probability  of  next  event 

PRB(l-3,4) 

Data  change  number 

IEDC( 1-3 ,4 ) 

Data  change  value 

EDCV (1-3, 4) 

Event  5 Probability  of  next  event 

PRB( 1-3,5) 

Data  change  number 

IEDC(l-3,5) 

Data  change  value 

EDCV( 1-3,5) 

Event  6 Probability  of  next  event 

PRB(l-3,6) 

Data  change  number 

IEDC( 1-3,6) 

Data  change  value 

EDCV( 1-3,6) 

Event  7 Probability  of  next  event 

PRB( 1-3,7 ) 

Data  change  number 

IEDC( 1-3, 7 ) 

Data  change  value 

EDCV( 1 ,3 ,7 ) 

Event  8 Probability  of  next  event 

PRB( 1-3 , 8 ) 

Data  change  number 

IEDC( 1-3,8) 

Data  change  value 

EDCV( 1-3,8) 

Event  9 Probability  of  next  event 

PRB( 1-3,9) 

Data  change  number 

IEDC(l-3,9) 

Data  change  value 

EDCV( 1-3,9) 

Event  10  Probability  of  next  event 

PRB( 1-3,10) 

Data  change  number 

IEDC(1-3,10) 

Data  change  value 

EDCV(1-3,10) 

Event  11  Probability  of  next  event 

PRB(1-3,11) 

Data  change  number 

IEDC( 1-3,11 ) 

Data  change  value 

EDCV(1-3,11) 

Event  12  Probability  of  next  event 

PRB(1-3,12) 

Data  change  number 

IEDC(1-3,12) 

Data  change  value 

EDCV(1-3,12) 

$EQREVT 

NFP4/FP4= 
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Title  Cards 
Descript  ion 


FORTRAN  VALUE 

NIP4/IP4= 


Repair  description 
Equipment-Number 
Description  (72  digits) 

Threshold  (units/hour) 

Threshold  (units) 

Number  of  repair  events  in  family 
Family  number 

(repeat  for  each  repair) 

Event  1 Type  number 
Precedent  events 
Next  events 

Re pair /Touch  up  (1,2,3) 

Event  family  indicator  (0,1,2) 

Event  2 Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  3 Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  *4  Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  5 Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  6 Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  7 Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 


NFQRE 

TSR 

TSR1 

IRE 

IEFN 


72H 


IETYP 

IPE 

NX ( 1 - 3 , 1 ) 

RTU 

IF0I 

IETYP 

IPE 

NX( 1-3 , 2 ) 

RTU 

IF0I 

IETYP 

IPE 

NX( 1-3,3 ) 

RTU 

IF0I 

IETYP 

IPE 

NX( 1-3 ,4 ) 

RTU 

IF0I 

IETYP 

IPE 

NX ( 1 - 3 , 5 ) 

RTU 

IFOI 

IETYP 

IPE 

NX( 1-3,6) 

RTU 

IFOI 

IETYP 

IPE 

NX( 1-3 , 7 ) 

RTU 

IFOI 
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Title  Cards 
Description 

Event  8 Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  9 Type  number 
Precedent  events 
next  events 
Repair/Touch  up 
Event  family  indicator 
Event  10  Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  11  Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 
Event  12  Type  number 
Precedent  events 
Next  events 
Repair/Touch  up 
Event  family  indicator 


FORTRAN  VALUE 


IETYP 

IPE 

NX (1-3, 8) 

RTU 

IF0I 

IETYP 

IPE 

NX( 1-3 ,9) 

RTU 

IF0I 

IETYP 

IPE 

NX( 1-3,10 ) 

RTU 

IF0I 

IETYP 

IPE 

NX(l-3 ,11 ) 

RTU 

IFOI 

IETYP 

IPE 

NX(1-3,12) 

RTU 

IFOI 


(repeat  for  each  repair--up  to  twelve  events) 
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Title  Cards 
Description 


Emergencies 

Emergency : Description 

Essentiality 
Men  required  (by  type) 

Mental  load 

Rate  of  consumable  expenditure  (units/hours) 
Threshold  (units/hours) 


Threshold  (units) 

Hazard  class 

Energy  consumption  (calories/hr) 
Number  days  between  emergencies 

(repeat  for  each  emergency) 


Average  recovery  time  (hours) 

Average  standard  deviation  of  recovery  time  (hours) 
Duration  target  (hours) 

(repeat  for  each  emergency) 

/ent  type  data 

Description 

Essentiality 

Number  of  men  required  (by  type) 

Mental  load 

Kind  of  event  end  time 
Kind  of  event 

Rate  of  expenditure  of  consumables  (units/hours) 
Rate  of  expenditure  of  consumables  (units) 

Hazard  class 

Energy  consumption  (cal. /hr.) 

Number  of  equipments  required 

Equipments  required 

Class 


FORTRAN 


IESSE 

NREQE(l-5 ,1 ) 

NREQE(6-10,1) 

LODME 

IRCE( 1-5 ,1 ) 

IRCE(6-10,1) 

TSE 

IRCE1( 1-5,1) 
IRCE1(6-10,1 ) 
TSE1 
I HE 

IECE(l-5 ,1 ) 
IECE(6-10 ,1 ) 
NDBE 


ART 

ASDE 

DTE 


IESS 

NREQ( 1-5 ,1 ) 

NREQ(6-10 ,1 ) 

LODM 

KE 

INT 

IRC(l-5 ,1 ) 
IRC( 6-10 , 1 ) 
IRCKl-5 ,1 ) 
IRC1( 6-10 ,1 ) 
IH 

IEC( 1-5,1) 
IEC(6-10 ,1 ) 
NIQR 
IQR(l-6) 
ICLASS 


VALUE 

$EMREVT 

NIP5/IP5= 

72H 


NFP5/FP5- 

> 

9 

$ 

$TYPE 

NIP6/IP6= 

72H , 

9 

3 9 5 9 9 

9 9 9 9 9 


3 9 3 3 3 

9 9 9 9 9 

» 9 9 9 9 

9 9 9 9 9 

3 

> 9 9 9 9 9 

9 3 3 3 9 

9 9 9 9 9 9 


(repeat  foe  each  event  type) 
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Title  Cards 


Description 

FORTRAN 

Value 

NFP6/FP6= 

Average  duration  (hours) 

ADUR 

Average  standard  deviation 

ASD 

* 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

i 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

5 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

' > 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 

Average  duration  (hours) 

ADUR 

9 

Average  standard  deviation 

ASD 

9 
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Title  Cards 


Description 

FORTRAN 

VALUE 

NFP6/FP6- 

Average  duration  (hours) 

ADUR 

3 

Average  standard  deviation 

ASD 

$ 

(repeat  for  each  event  type) 

Scheduled  events  title  card 

FORTRAN 

FORMAT 

VALUE  . 

(Input  card  not  free  format) 

Day  number  for  this  iteration 

ND 

13 

Number  of  scheduled  events  this  iteration 

NOSE 

13 

Title 

11A6 

(66  spaces) 

Scheduled  events 

FORTRAN 

VALUE 

Type 

IETYP 

$SCHEVT 

NIP3/IP3= 

3 

Precedent  events 

IPE 

3 

Threshold  (units/hour) 

TS 

3 

Threshold  (units) 

TS1 

3 

Repair/ Touch up 

RTU 

3 

Event  family  indicator 

IFOI 

3 

Number  in  family 

NIF 

3 

Family  number 

IEFN 

3 

Next  events 

NX(1-351) 

3 3 3 

(repeat  for  each  scheduled  event) 
Time  limit 

TL 

NFP3/FP3= 

3 

Start  time  (hours) 

ST 

3 

Probability  of  alternatives 

PRB(1-351) 

3 

Data  change  number 

IEDC(1-3,1) 

3 

Data  change  value 

EDCV(1-3,1) 

$ 

(repeat  for  each  scheduled  event) 


150 


APPENDIX  C 


Logic  Flow  Charts 


151 


153 


o 


COUNT  NUMBER  OF  MEN  IN  CREW 

BY  CREW  ECHELON  AS  FOLLOWS: 


i a 1, 2,3,4 

j * 1,2,  • • • , NTMAX 


10 

IAA  (i)  - £ MEN  (],  i) 
j*1 


ICE -i  * IFOR  OFFICERS 

* 2 FOR  SENIOR  P.O.'s 
- 3 FOR  JUNIOR  P.O.'s 
» 4 FOR  UNRATED  MEN 


NUMBER  OF  MEN  IN  CREW  = 1C  = 


4 

£ IAA  (i) 


ASSIGN  TO  EACH  CREW  MEMBER  A 

MEMBER  ID  M (M  = 1.  2 1C) 

AND  A CREW  ECHELON  NUMBER  ICE  (M) 
SUCH  THAT  IF  ICElMj)  < ICE(M2) 

THEN  M1  < M2 


ASSIGN  PRIMARY  SPECIALTY  IPS(M)  FOR  EACH  CREW  MEMBER 
M WHERE  THE  NUMBER  OF  MEN  HAVING  A GIVEN  IPS(M)  - NT  IS 
DETERMINED  BY  MENIICE,  NT) 


DETERMINE  SECONDARY  SPECIALTY  ISS(M)  FOR  EACH  CREW 
MEMBER  M AS  FOLLOWS: 

ISS(M)  - MINIMUM  PERSONNEL  TYPE  IT  SUCH  THAT 
PTT  (IT.  IPS(M))  > RY  • PTT  (l0.  IPS(M)) 


FOR  EACH  CREW  MEMBER  M INITIALIZE  ATTRIBUTES: 

PC(M) 

9 

(WT -+  RD  • SIGWT)/WT 

CAL(M) 

9 

PC(M)  • CALRY 

PWR(M) 

3 

PC(M)  • PWRRT 

PACE(M) 

9 

ACP  + 0.11-RD 

ASP(M) 

m 

(AASP  + RD  AASP/10)  < 1 

HSLS(M) 

9 

SLEEP  ♦ RD  • SLEEP/4 

FAT(M) 

9 

f (HSLS)  as  in  subroutine  FBUILD  (Page  22) 

STRM(M) 

9 

A PST  + RD  • APST  16 

TO  PAGE  2 
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FROM  PAGE  1 


© 


PRINT  OPTION  2? 


NO 


(PAGE  3) 


VES 


FOR  EACH  CREW  ECHELON  COMPUTE  AVERAGES  AND  PRINT 

PC.  PCOM.  SCOM.  PACE,  ASP,  HSLS.  PI 

FOR  EACH  CREW  MEMBER  M PRINT. 

M.  PC(M),  PCOM(M).  SCOM(M),  PACE(M).  ASP(M). 
HSLS(M).  PI(M).  PI2(M),  FAT(M),  STRM(M), 
CAL(M),  PWR(M),  ICE(M).  IPS(M),  ISS(M) 


(PAGE  3) 
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© 


INITIALIZATIONS 

FOR  FIRST  DAY 

ND 

= 1 

IDE(K) 

- 0 K = 1 

KMAX 

1 DF(  1 Q) 

= 0 IQ  - 1..  ... 

IQMAX 

KONC(L) 

* 0 L = t.  ... 

LMAX 

KONCKL1) 

= 0 LI  3 1 

LMAX1 

FOR  ALL  CREW  MEMBERS  M: 

NS(M) 

- 0 

ACAL(M) 

- HSLS(M)  - CAL(M)/24,0 

CASP(M) 

= ASP(M) 

PERF(M) 

= ASP{M) 

NOSUC(M) 

= 0 

NOFAIL(M) 

* 0 

. 


TO  PAGE  4 
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INITIALIZATIONS  FOR  EACH  DAY 


NIGNR 

= 0 

FOR  EACH  CREW  MEMBER  M 
TW(M)  * 0.0 

NSUC1 

= 0 

TWP{M)  - 0.0 

NSUC2 

= 0 

TWS{M)  * 0.0 

NFALE 

= 0 

MPCC(M)  * 0.0 

NREPT 

= 0 

IDC(M)  = 0.0 

NPRFM 

* 0 

DS(M)  * 0.0 

HRSE 

= 0.0 

NU(M)  * 0.0 

HRSR 

= 0.0 

Z(M)  * 0.0 

HRSS 

=0.0 

MAXST 

= 0 

FOR  EACH  EQUIPMENT  IQ 

MAXSTE 

= 0 

CUTIIQ)  * 0.0 

IGIND 

= 0 

CDT{|Q)  - 0.0 

CML 

= 0.0 

CART(IQ)  = 0.0 

CMLMX 

= 1.E10 

ICML 

= 0 

ZC(IE)  - 0 for  all  IE 

TEH 

* 0 

USHT 

= 0 

APA 

= 0 

1 SI  E 

= 0 

SEF 

= 0 

CALCULATE  SEASTATE  AND  PERCENT  CREW  SEASICK: 

ICSS  11  MINIMUM  VALUE  OF  IS  FOR  WHICH  SESTA(IS)  > RY 
PSESIC*  0.0555-  ICSS 


DETERMINE  SEASICK  STATUS  OF  EACH  M AND  ADJUST  COMPETENCE 
FOR  EACH  M: 

IF  RY  < PSESIC: 

TPCOM(M)  = PCOM(M)  • [ 1 - 0.0555  • ICSS 
TSCOM(M)  - SCOM(M)  • f 1 - 0.0555  * ICSS 


0 
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FROM  PAGE  A 


Q 
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FROM  PAGE  5 


0 


, 


INITIALIZE  EVENT  SEQUENCING  ARRAY 
PTR(i)  0 1*1.  . . NTE 


GENERATE  POINTERS  TO  DETERMINE  SEQUENCING 
OF  EVENTS  FOR  THE  DAY  BEFORE  CONSIDERING 
OPERATOR  INDUCED  FAILURES 

FOR  * = NOSE  t 1 TO  NTE 
» = RY  NTE 

IF  PTRIi)  3 0.  SET  PTR(i)  * IEVENT  (NOSE  * 
OTHERWISE 

SELECT  FIRST  INTEGER  ii  > . SUCH  THAT 
PTR(.i)  = 0 AND  SET  PTR(ii)  * lEVENT(f) 

IF  NO  SUCH  ii  $ NTE  EXISTS  THEN  SET 

ii  - i-  1.  i - 2 UNTIL  PTR(ii)  =0 

AND  SET  PTR(ii)  = IEVENT  (1) 


CALCULATE  NUMBER  OF  OCCURRENCES  OF 
INTERMITTENT  FAILURES  FOR  EACH  EQUIPMENT 
THIS  DAY 

INO(IQ)  3 RP(RELKJETJ) 

DEGRADE  EQUIPMENT  PERFORMANCE  FOR  DAY 
DUE  TO  INTERMITT  ANT  FAILURES  (EACH  EQUIPMENT) 

CDT(IQ)  3 [TUI  (IQ)]  * [iNO(IQ)] 

(INTERMITTENT  FAILURES  ARE  NOT  "REPAIRED  BY 
EVENTS") 

INITIALIZE  FOR 
FIRST  EVENT 
(EVENT  LOOP) 

IE  a NPTR(1) 

IE  IE  - 1 


INSERT  REPAIR  GENERATED  BY  OPERATOR  INDUCED  FAILURE 
FOLLOWING  CAUSING  EVENT. 

FOR  I 3 1 . . NTE,  EXAMINE  POINTER  ARRAY  AND  PLACE  OPERATOR 
INDUCED  FAILURE  FAMILY 


RESETS  FOR  EACH  EVENT 

IPI  = 0 
IT RY»  0 
USH  -0 
IGNOR  - 0 

READ  FROM  DISC.  RECORD  ITETY  (lETYP(IE)) 


DETERMINE  WHETHER  EVENT  SHOULD  BE  IGNORED: 


(DO  NOT  IGNORE  EMERGENCY  OR  REPAIR  EVENTS) 


IF  IESS(IE)  < IET  THEN 

SET  IGIND  » 1 AND 
GOTO  ON  PAGE  17 

OR 

IF  KONC(L)  < KONT(L,  TS(IE))  FOR  ANY 
L(J  3 1.  2,  3)  THEN 
SET  IGIND  *4  AND 
GO  TO  ON  PAGE  17 

IFKONCML1)  < KONTi(l1.TSUIS>) 

FOR  ANY  LI  - 1 tO,TH£N 

SET  IGIND  3 5 AND  GOTOhjIJ 
ON  PAGE  17 


GO  TO  PAGE  7 


159 


(PAGE  7) 


160 


SET  IPI  * 1 

* ( 

m \ 

KIND*  17 


NO 


YES 


CALCULATE  UNMANNED  STATION 

HOURS  FOR  EACH  SHIFT 

USH  - USH  ♦ ADUR(lETY)  • NREGT(M) 


0* 


YES 


{PAGE  7) 


KA  * 07 


NO 


RANK  MEN  IN  ORDER  OF 

PREFERENCE  FOR 

SELECTION 

(SORT  T AVAIL  ARRAY 

INTO  INCREASING  ORDER 


e-7 


© 


FOR  EACH  MAN  IN  CREW  i - 1.  2,  . 1C,  DETERMINE  ELIGIBILITY  FOR  SELECTION 

MCHSN{»>  * 0{*0  IF  ALREADY  SELECTED) 

IPS(i)  * II  (ISS  FOR  SECONDARIES) 

Z(i)  < TLIIE)  - ADUR(IE)  {OTHERWISE  COULD  NOT  FINISH) 

TW{t)<  WORK2  {OTHERWISE  WORKED  TOO  LONG) 

IF  IEFN(IE)  ^ 0 AND  IFOUIE)  F THEN 

»C  IFAM(IEFN{IE).  j ) {MUST  BELONG  TO  FAMILY) 

IF  ELIGIBLE.  THEN 

KA  « KA  ♦ 1 
MAVAIL(KA)  «, 

CALR  - 1 IF  lEC(IETY.II)  < PWR{.) 

CALR  * PWR(i)/IEC{lETY,l|)  OTHERWISE 

CALCULATE  ELIGIBILITY  CRITERIA  FOR  EACH  ELIGIBLE  MAN 
TAVAIUKA)  - 1000.0  - 10.0  TW{i)  ♦ CALR  * T PCOM{i) 

{USE  SCOM  WHEN  KIND  * 1) 


YES 


{PAGE  9) 


9 


{PAGE  8) 


(FROM  PAGE  8) 


SELECT  MOST  DESIRABLE  MAN  NN 

NN  *»  MAVAIL  (KA) 

KA-KA-1 


SELECT  MAN  FOR  EVENT 


IG 

• 

IG  ♦ 1 

MCHSN(NN) 

* 

1 

MA(IG,  II) 

• 

NN 

MAT(IG) 

- 

NN 

ITYPE(NN) 

* 

II 

NREQT(II) 

» 

NREQT(II) 

(PAGE  7) 


9 


OVERTIME  REQUIRED? 

TW(NN)  + (ADUR  (IETY)>WORK1 


YES 


IS  EVENT  AN  EMERGENCY  OR  IS 
ESSENTIALITY  , lESS(IETY)  100?  ) 


NO 


NO 


YES  / *\  NO 

TW(NN) < WORK2? 


YES 


MORE  MEN  REQUIRED? 
NREQT(ll)5tO? 


NO 


YES 


$ 


IPI  « 


Hi  (PAGE  7) 


NO 


KIND  - 1? 


rfn  Y‘S 

(PAGE  7) 

(PA 


PAGE  8) 


(PAGE  8) 
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FOR  EACH  MAN  i IN  THE  GROUP  CALCULATE  SLEEP  AND  FATIGUE  RELIEF 


WH(i)  > CN  + 0.5?  (TIME  TO  SLEEP?) 

IF  NO.  EXIT  TO  © 

OS(i)  > MAXSL?  (SLEEP  QUOTA  FILLED?) 

IF  YES.  EXIT  TO  © 

FAT(i)  < TFAT  (FATIGUE  UNDER  THRESHOLD?) 

IF  YES.  EXIT  TO  © 

SUM  SLEEP  FOR  DAY 

DS(i)  -•  MIN  [MAXSL,  OS(i)  + WH(i)  - 0.5] 
COMPUTE  FATIGUE  DUE  TO  SLEEP: 

TEMI  - MIN  [MAXSL  - DS(i).  WH(i)  ‘0  5 ] 
IF  TEM  1 >{£  FAT(i)  * 0.0 
IF1<TEM1<  9.  FAT(ID  ■ 


il{fo-i^TEM,ta2RY] 


FAT(i) 

IF  0 — TEMI  < I.FAT(i) 

FAT(i)  |o.9  - 0.05  TEMI  + 0.2  RY 
LIMIT  SUCH  THAT  0<  FAT(i)<  I 


] 


RESET  CALORIES  EXPENDED  SINCE  LAST  SLEEP  ACAL(i)  - 0 
COMPUTE  HOURS  SINCE  LAST  SLEEP  EQUIVALENT 

IF  FAT(iX.15.HSLS(0-  ^ • FAT(i) 

IF  .15 < FAT(i)<.9.HSLS(j)  » y*FAT(l)  +5.8 

IF  .9  < FAT(i)  . HSLS(i)  * 310*  FAT(I)  — 260. 


ADJUST  HOURS  SINCE  LAST  SLEEP 
FOR  EACH  GROUP  MEMBER 

HSLS(i)  - HSLS  (i)  + WH(i) 

CALL  SUBROUTINE  FBUILD  TO 
COMPUTE  FATIGUE  BUILDUP 


(PAGE  10) 


© 


03 


SELECT  ONE  OF  FIVE  CASES: 

0.  1 GASP  — GPERF  | < 0.02 

1.  GPERF  < GASP  and 
GSTR  < GSTRM 

2.  GPERF > GASP  and 
GSTR  < GSTRM 

3.  GPERF  < GASP  and 
GSTR  > GSTRM 

4.  GPERF  > GASP  and 
GSTR  > GSTRM 


0 


1 


2 


3 


4 


© 


COMPUTE  PERFORMANCE  TIME 


IF  GPCC  <1,  $F  ’ 
OTHERWISE  SF  * 


GPACE  - 


2.0  - GPCC 
1.5  — (GPCC/2) 


.(£  pace'")  ig] 


PAF - SF 


fi  (®nTEM2  + R0  V8 nTEM  I ) WHERE  TEM1* 
AND 

J TEM1 


(GROUP  PACE) 

. ASD(IETT)2 
AOUROETYr 

FOR  REPAIR  EVENTS 


V - ADUR  (IETY)  ♦ RD  ASD(IETY) 
IFGSTR<GSTRM: 

PT(IE)  » GPACE  (1  - 2.350751  + 3.4722t2  - 1.829t3)  • V 


| FOR  SCHEDULED  EVENTS 
l AND  EMERGENCIES 


IF  GSTRM  S GSTR  ^ GSTRM  + 1.  PT(IE)  - 

GPACE  jv  ^2(GSTR-GSTRM)  ♦ l)  - ADUR(IETY)  - (GSTR~GSTRM)J 
OTHERWISE,  PT(IE)  - GPACE  ^3.0  V - AD  UR  (lETY)) 

LIMIT  SUCH  THAT  OS  PT(lE)  - 4ADURMETY) 


(PAGE  14) 


PAF  ■ -0.4  (GASP-GPERF) 


FOR  EACH  MAN  i€G: 

IF  PERF(i)  > CASP(i)  . 

CASP(«)  - CASP(I)  + 0.l((PERF(i>  - CASP(.))  RY 
LIMIT  SUCH  THAT  CASP(i)  < 1.0 


FOR  EACH  iCG 

CASP(i)  -PERF(i) 

PAF  - 1 + 0.4  (GASP-GPERF) 


GSTR  = 0.9  GSTRM 
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FROM  PAGE  14 


COMPUTE  PERFORMANCE  ADEQUACY  {PA} 


ES 


1 - BE 
GSTRM-1 


) 


GSTR  + BE 


it  GSTR  < GSTRM 


5— GSTR 
5- GSTRM 


if  GSTRM  < GSTR  < 5 


- 0 if  GSTR  > 5 

EC  - [VrPCOMfLI}  -i-^TPCOMli)^ 1/  (IG  + 2}  if  ITRY  - 1 

(REPLACE  TPCOM  WITH  TSCOM  FOR  MEN  SELECTED  TO  WORK 
IN  SECONDARY  FIELD} 

«*  EC  + 0.2  IF  ITRY  = 2 (0<EC<1.0) 


EF 

EA 

PA 


CPCC  if  GPCC  < 1 
1.0  Otherwise 


| 2CASP(LI)+  X CASP(i}  | / (IG  + 2) 

( 3 EC  ■ (ES  ♦ EF  ♦ EA)  + ES  (EF+  EA)  + EF - EA  N 

V 12  i 


© 


FROM  PAGE  15 


© 


— © 
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CO 
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FROM  PAGE  16 


_J 

UPOATE  HOURS  SPENT  ON  EVENTS 

HRSX-  HRSX  ♦PT(IE1  • IG 
WHERE 

HRSX  • HRSS  FOR  SCHEDULEO  EVENT 

- HRSR  FOR  REPAIR  EVENT 

- HRSE  FOR  EMERGENCY  EVENT 


FOR  AN  IGNORED  EVENT 

1GNOR  - 1 
NIGNR  * NIGNR  ♦ 1 


NO 


EVENT  PRINTOUT? 


TO  PAGE  18 


YES 


IGNORED  EVENT? 


YES 


PRINT  DATA  FOR 
IGNORED  EVENT 


NO 


PRINT  EVENT  DATA  AND  DATA 
FOR  MEN  IN  GROUP 


TO  PAGE  18 
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(PAGE  14) 


(PAGE  6) 
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FROM  PAGE  18 

1 

COMPUTE  AVERAGE  PHYSICAL  WORKLOAD  AND  PRIMARY 
COMPETENCE: 

FOR  M « 1,  2. 1C 


APW(M) 


IDC(M)*  TW(M) 
CAL(M)  • WORK1 


IF  PCOM (M  > CASP(N),  THEN 


PCOM(M)  = PCOM(M) 


CASP(M)  - PCOM(M) 


NU(M)  0.0017 


COMPUTE  CURRENT  CREW  COMPETENCE: 

Tv  1 

CCC-  X PCOM(i) 

/'C 

Li-i 

COMPUTE  AVERAGE  EQUIPMENT  PERFORMANCE 
LEVEL: 


AEPL  » 


IQMAX 

x 


L i-i 


EPL(il 


/ IQMAX 


COMPUTE  EQUIPMENT  PERFORMANCE  EFFICIENCY 


EPEFF  » AEPL  * 
0 < EPEFF  < 1.0 


“IQMAX 

£ CART(IQ) 


MO-l 


IQMAX 


/ z 


CDTIIQ) 


IQM 


COMPUTE  DAILY  PERFORMANCE  EFFICIENCY 

PEpp.ili- A _ushi  \ I NIGNR_ \ 
ISIE  y WORKMC J NTE  ) 


TO  PAGE  20 
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FROM  PAGE  19 


TO  PAGE  21 


173 
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SUBROUTINE  FBUILD  (HSLS) 


COMPUTE  FATIGUE  BUILDUP  (FAT(M))  FOR  EACH  M: 

FAT(M)  - 0 01875  HSLS(M)  - RY  - 0.2 
if  0<HSLS(M)  < 8 

FAT(M)  - (15  - HSLS(M)-  109)/220  + RY  0.2 
if  B<  HSLS(M)  <19 

FAT(M)«  (HSLS(M)  ♦ 229)7310  ♦ RY  0.2 
if  HSLS(M)  >19 

0<  FAT(M)  < 1 


SUBROUTINE  PSCAP:  COMPUTE  PRIMARY  AND  SECONDARY  COMPETENCE  (IAA,  PCDUM,  PSCOM) 


CALCULATE  PRIMARY  AND  SECONDARY  COMPETENCES 
PERFORM  STEPS  1.  2,  3 FOR  1 * 1.  2.  3.  AND  4 

1.  L(1)  - IAA(i)  PPFQ 

L(2)  - IAA(i)  PPMO 

L(3)  • 1AA(i)  PPUO 

2.  IF^LU)  ^ IAA(i),  ROUNDUP  EACH  L(j) 

IF  EQUALITY  ISNOT  OBTAINED.  ADD  1 TO  EACH  L(j).  CONSIDERING  THE 
LARGEST  L(i)  FIRST,  UNTIL  EQUALITY  IS  OBTAINED 

3.  ASSIGN  THE  FIRST  L(i)  MEN  WITH  ICE(M)  - 1 

PCOM(M)  • .95  + RD  0 03 

FOR  THE  NEXT  L(2»  MEN  WITH  ICE(M)  « . 

PCOM(M)  - .75+  RD  0 03 

FOR  THE  NEXT  L(3)  MEN  WITH  ICE(M)  - 1 
PCOM(M)  « .60  ♦ RD  • 0.03 

4.  REPEAT  THIS  PROCESS,  REPLACING  PCOM(M)  WITH  SCOM{M)  AND  PPFQ. 
PPMO,  PPUO  WITH  SPFQ,  SPMO.  SPUQ 


APPENDIX  D 


Program  Organization 
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APPENDIX  D 

COMPUTER  PROGRAM  ORGANIZATION 


The  Computer  Program 


The  program  for  the  model  was  given  the  name  P420  and  was  prepared 
in  the  widely  accepted  FORTRAN  IV  programming  language.  All  runs  reported 
were  made  on  the  Honeywell  635  computing  system. 

The  H-635  is  a 36  bit  word  machine  with  cycle  time  of  one  microsecond. 
The  ISM  model  requires  32k  words  of  core  memory  storage  to  compile  and  execute 
where  k=  1024. 

A page -heading  subroutine,  available  at  most  computer  installations, 
and  two  random  number  generators  are  the  only  non-standard  routines  which 
would  require  special  consideration  when  executing  the  simulation  program  at 
other  facilities.  The  program  was  prepared  with  computer  independence  in 
mind  so  that  converting  the  P420  program  to  FORTRAN  for  another  large  scale 
computer  should  require  little  more  than  replacing  control  cards  and  recompiling 
on  the  new  computer. 

The  model  divided  into  a executive  program  (XMAIN),  input  and  output 
routines,  and  several  supporting  subroutines,  and  several  supporting  subroutines. 
In  general  terms,  the  executive  performs  the  following  functions: 

a)  Performs  all  initializations 

b)  Calls  for  parameter  and  personnel  data  from  input 
routine 

c)  Determines  crew  characteristics 

d)  Calls  for  emergency  and  equipment  repair  event 
data  and  determines  when  in  mission  these  events 
are  to  be  simulated 

e)  Calls  for  scheduled  event  data  for  each  day  from  input 
routine 

f)  Determines  order  for  events  to  be  simulated  for  the 
day 

g)  Selects  crew  for  each  event 

h)  Simulates  crew  performance  and  evaluates  same 
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i)  Allows  for  second  attempt  of  ’’failed'  event 

j)  Prints  results  for  each  event  (optional) 

k)  Determines  next  event 

l)  At  end  of  day,  summarizes  events  for  day  and  calls 
output  routine  to  print  daily  results 

m)  At  end  of  iteration,  calls  output  routine  to  print 
iteration  summary 

n)  At  end  of  mission,  calls  output  routine  to  print 
mission  summary 

The  detailed  event  results  (item  j above)  will  be  printed  on  events  for 
which  the  event  and  day  numbers  exceed  the  values  of  IND(5)  and  IND(4)  respec- 
tively (see  Appendix  A,  Table  A-7). 

The  input  routine  (INPT1)  is  responsible  for  accepting  the  simulation 
input  data  and,  after  verifying  that  each  input  section  contained  the  proper 
number  of  data  items,  passes  the  data  to  the  executive.  Optionally,  a complete 
listing  of  all  input  data  can  be  printed  by  the  input  routine  (see  IND(l)  Appendix 
A Table  A-7).  The  parameters  are  unconditionally  printed.  If  a section  of  the 
input  file  does  not  contain  the  proper  number  of  data  items,  an  appropriate  mes- 
sage together  with  all  of  the  data  or  that  type  (e.  g.  , personnel  data)  is  printed 
for  review  and  the  program  halts  after  checking  the  remaining  input  sections. 

There  are  four  entries  to  the  input  subroutine  (OUTP1).  The  first  entry 
is  used  when  a listing  and  summary  of  the  crew  characteristics  is  requested. 

This  output  occurs,  when  requested  by  print  option  2,  at  the  beginning  of  each 
iteration.  This  option  is  dependent  on  IND(2)  (see  Appendix  A,  Table  A-7). 

The  second  entry  provides  for  summarizing  the  results  of  a days  simula- 
tion. A printed  listing  of  these  data  may  or  may  not  be  effected,  depending  upon 
print  option  6.  The  end  of  day  results  will  be  recorded  on  such  iteration  on  those 
days  for  which  the  day  number  exceeds  the  value  of  IND(6). 

The  third  entry  in  the  output  routine  unconditionally  prints  the  (see  example 
Table  2-5)  report  summarizing  the  data  obtained  at  the  end  of  each  iteration  of  the 
simulated  mission.  Table  206  presents  this  format. 

The  fourth,  and  final,  entry  unconditionally  summarizes  and  prints  data 
obtained  at  the  end  of  each  run  of  N iterations  as  shown  in  Table 

The  supporting  subroutines,  also  coded  in  FORTRAN  IV,  are  FBUILD, 
IPUYSN,  and  PSCAP.  The  function  of  FBUILD  is  to  compute  fatugue  buildup  for 
the  men  in  the  crew;  IPUYSN  generates  random  numbers  with  a poisson  distribu- 
tion; and  PSCAP  determines  primary  and  secondary  competence  levels  for  each 
man  in  the  crew. 
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The  Input  Card  Deck 


The  card  deck  organization  for  execution  of  the  program  on  the  H635 
is  shown  below: 

Column  1 Column  8 Column  16 

$ SNUMB  ' XXXXX 

$ IDENT  XXXXX, 

OBJECT  DECKS:  XMAIN,  OUTP1, 
INPT1,  IPIJYSN,  FBUILD,  PSCAP 

$ EXECUTE 

$ LIMITS  05,  32k,  2000 

$ TAPE  10,  X1D,  , XXXXX,, 

$ FILE  12,  X6R,  2R 

$ INCODE  (OPTION) 

input  data  for  all  formats 

$ END  JOB 


Figure  D-l  P420  Deck  Set-Up 


The 

The  five  digit  number  in  the  first  card  represents  a run  number  used 
by  the  computation  center  to  identify  the  run.  The  5 digit  number  in  the  second 
card  represents  a charge  number  or  accounting  code.  On  the  LIMITS  card,  the 
numbers  indicate  the  maximum  length  processor  time  core  memory  (K=  1024) 
and  print  lines  on  a given  run.  The  run  will  be  terminated  if  any  of  these  condi- 
tions is  noted.  On  the  TAPE  card,  the  numbers  indicate  the  logical  unit  number, 
the  channel  number  (D=  dismantle  after  run),  and  the  physical  tape  reel  numbers. 
The  options  on  the  INCODE  card  are  either  IBMF  (FORTRAN  code  prepared  on 
the  Model  026  Keypunch)  or  IBMEL  (extended  language  code,  prepared  on  the 
Model  029  Keypunch). 

At  many  installations,  both  the  $SNUMB  and  $IDENT  cards  are  prepared 
by  the  operations  personnel.  The  $TAPE  card  is  required  only  on  runs  requiring 
more  than  one  iteration  or  for  runs  employing  the  tape  input  option. 
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When  a simulation  with  multiple  iterations  is  completed  a tape  containing 
a large  portion  of  the  input  data  has  been  created.  This  tape  may  be  used  in 
subsequent  simulations  by  choosing  the  tape  option  for  input.  The  tape  contains 
all  the  input  following  the  $PERSNL  data  group.  This  means  that  if  the  print  option 
was  in  effect  (IND(l)/  0)  when  the  tape  was  created,  the  descriptors  for  the  equip- 
ment repairs  and  emergency  events  are  also  on  the  tape.  Hence  the  user  must 
enact  the  print  option  when  employing  that  data  tape.  Failure  to  do  so  will  cause 
improper  reading  of  records  and  the  program  will  abort. 


Program  Timing 


The  recompilation  time  on  the  H-635  is  from  one  to  two  minutes  depend- 
ing on  the  extent  of  the  programs  compiled.  Execution  time  is,  of  course  dependent 
on  the  simulation  input  data  involved.  The  following  execution  time  estimates  are 
examples  from  runs  made  with  the  mission  data  described  in  Chapter  III.  A run 
of  10  iterations  during  which  recording  was  made  for  summaries  only  consumed 
about  . 020  seconds  per  event.  A run  in  which  all  detail  event  output  was  recorded 
consumed  . 059  seconds  per  event  or  about  1. 2 minutes  for  a 5 iteration  run.  As 
another  example,  a two  mission  case  each  with  5 iterations  of  4 days  with  full 
detail  recordings  of  all  events  took  146  seconds  of  processor  time.  This  corresponds 
to  0.  056  seconds  of  processor  time  per  event. 
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Figure  D-2 


Computer  Simulation  System 


APPENDIX  E 


Computer  Program* 


This  computer  program,  like  all  simulation  programs,  is  evolutionary.  The 
program  presented  in  Appendix  E represents  the  status  of  the  simulation  model 
program  as  of  November  22,  1974. 
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CXMaJN  XMaIN 

COMMON/PRSNEL/WT,SIGBT,PPFO,PPMO,pPUO.SPFQrSPMOiSPUO, 
lHP|,PID.ZPC.PTT(10yl0).MENCl0»4),NDS» IDS(6»20) 

COMMON/ I Par  AM/ APSTyWnPKl,W0RK2, SLEEP, CN.MAXSt.TFAT.ACP. 
1CaLRY»PWRRT,K7,K1/BE,aaSP»KON(10),KONT(1O#10)  .KONKIO). 

2  KONT1(10»10)*SESTA(£0)»RElI(4),N, !ET, IND(7).N0MAX 
COMMON/ EQREVNT/  I DF ( 30 > . RELH ( 30 ) , DTR < 570  ) , TU I < 30  > , I RE ( 30 ) 
COMMON/EEMER/aRTUO).  ASDE<10).DTE(10>,  l ESSE  (10)  • NREQE  (10,10), 

1 LODmE< 10 >. !RCE< 10,10) r J RCEl < 10 T 10 ) , TSE ( 10) ,?SEl( 10)7  I HE (10)* 

1 IECE(IO.IO)  ,DTBEX10JrNDBE(10) 

COMMON/ETYPE/ADUP/ASDjIESS.NREOUOJ.lODM.KE.INT,  JRC (10),  IRCl(tO)  . 

1 I H * l EC ( 10 ) »NTQR»1QR(4) , 1CLASS 

COMMON/SEVENT/!ETYPC570),TLC570].5T<570) ,EDCV(3»570), IPE(570) , 

1 TS<  570) ,TSl(570),NXf3,570) ,RTUi  570) , JFOI (570) , IEFN(570) ,NIF(570)  , 

2 JEDC(3»570),PRBX3,570)iN0SE,NE0RElNEME,Dl (9) 

COMMON/QCOM/PCOM(20) ,SCOM<20>» IPS(20),ISS<20) ,TPC0M(20) ,TSCOM(20> 

COMMON/OPPl/  IAAT4)  , PC  ( 20  ) , PACE  ( 20  > , ASP  (20)  ,HSLS(21')  ,PI  (20) 

1 . P 1 2 C 20 ) , ICE(20) 

C0MM0N/0PP2/  TW(20>, TWP(20).TWS(20),DS(20) . APW(20),PCC(20>, 

1 CASP<  20 ) * ! DC ( 20 ) » NSUC1, NSUC2,NFAlE, NIGNR, 

? KONC(IO) ,KONC1(10)  , 61 ,CML,ND, I T|R , NDA YS , MPCC ( 20 ) ,FAT(20) 

3 , STRM(20)»CaL(20)»PWR(20),CCaI.(20)iNU(20)»PERF(20),NPRFm(4) 

4 , aPA.SFDIFF,ClSDTA(1B,40) 
COMMON/OPPa/IC.FUC.NREP^HRSE.HRSR.HRSS.PEFF, 

1 MAXST,MAXSTE,USMT7NR/NTE,NE,TEH,CHLMX, ICMU.SIDCMX, idcmx, less 
COMMON/OPP4/ePL(30)»GJ)T(30),CART(30),CUT(30), 

1 AEPL.EPEFF.EHTBF^EMTYR, sRL*  SPl. SGEM 
INTEGER  TS,TSi,RTU,TSE,TSEl,TSP,TSRl 
INTEGER  PI2,PTR(240) ,|OIF<10) 

REAL  K0NC,NOSUC(20) ,NOFAIL(20>, IDC,K0NE(20)*MPCC  , MAXST  , NU 
REAL  MPI ,MAXSU,K7vKl, JEC.LODM, 1H , IRC , KON , K0N1 , KONT, K0NT1 
REAL  IECE, JHE, 1RCE.L0DME, 1ST 
DIMENSION  NPTR(580) , ADURJ0(55) 


1 ,K0NE1(20> 

DIMENSION  PSC0M(40), (PSS(40),PCDUM(6),TPSCOM(40) 

EQUIVALENCE  (PCDUM.PPFQ) , (PSCOM.PCOM) , ( IPSS* IPS) , (TPSCOM,TPCOM) 
EQUIVALENCE  ( ADUR , ADUR 1 07 
DIMENSION  NS(20>, IDE(iO), 

1 Z(20),ZC(570), IEVENT(570);NREOT(10),MAVAIL(20), 

2 TAVA1l(20)»MA(20,10);ITYPE(20) .MAT (20) , WH( 20 ) , ACAL ( 20 > , 

3 PT(570),TITLE(9> 

DIMENSION  MCNSN ( 20 ) , I NVS ( 570 ) , USH { 6 ) 

DIMENSION  HEADR(12> 

DATA  HE ADR ( 1 ) /72H  APPLIED  PSYCHOLOGICAL  SERVICES  WAYNE,  PENNA 

1.  ARTHUR  I.  SIEGEL/ 

DATA  TITLE/6HSCHEDU.6HLED  EV.6HENT  , 6HREPA I R, 6H  FAMIL, 

16HY 


.6HEMERGE.6HNCY  EV.6HENT 
DATA  YU .ESSS/PEA/6H  U , 6H 

DATA  STAR.BLANK/6H  • , 6H 

FUNC ( A , B * D ) 1 ( A ♦ (A«B}/4.)  * 
CALL  RANSI Z < 12 . 55  > 

RE AD ( 5 . 9Q50 ) NKASES 


/ 

S,6H 

/ 


P/ 
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< ASE  » 0 

10  K A S E » KaSE  + i 

IF(KaSE  ,GT.  NKaSES)  cau  exit 
RE AD ( 5 « 9045 ) HEADR 
9045  F0RMAT(12A6) 

CALL  SPGHDR { HEADR  ) 

LMAX»10 

LMAX1«10 

NTMax=10 

Iter=o 

NKOUNT  « 0 

RE AD ( 5 * 9050  ) ITaP,NDMAX 
CALL  XX I N 
50  JTER=ITER*1 

1 TAP  r IT*P*1 
NDAYS  = 0 
9050  FORMAT  (213) 

CALL  I NPUT { ITAP.KASE) 

kmax=neme 

IOMAXxNEQRE 

IEMAXsNOSE+NEQRE*NEME 

C*»*CCUNT  THE  CREW  FOR  EACH  ECHELON  AND  ASSIGN 
C***E aCH  MAN  A CrEw  ECHELON 
IC  • 0 

DO  HO  I « 1,4 

I A A ( I ) s 0 

DO  100  J « l.NTMAX 
100  I A A (I ) « l AA( I )*HEN( Jf I) 

110  JC  ■ I A A ( I ) + I C 
FLIC  * IC 

II  = 1 
JJ  ■ 0 

DO  120  I s 1 # 4 
JJ  » I AA  < I >*JJ 
IF  (JJ.LT , 1 1 ) GO  TO  120 
DO  115  J * II, JJ 
115  ICE(J)  * I 
II  ■ JJ*1 
120  CONTINUE 

c*«*assign  primary  specialties 

M s 1 

DO  160  J * 1,4 
DO  160  I ■ 1 , NTM AX 
II  « MEN(I.J) 

IF  (II  . EQ , 0 ) GO  TO  160 
DO  155  K o 1,11 

I ps  Cm)  = i 

155  M « M*  1 
160  CONTINUE 

C»*»ASSIGN  secondary  specialties 
DO  220  I * 1,IC 
1 1 * IPSU  ) 

TEM1  * UNIFMl(O.O) 

TEM1  * TEM1*PTT(NTMAX, 1 1) 

DO  210  J * 1,NTMAX 

IF  (PTT(J.  m'.LT.TEMO  GO  TO  21B 
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I SS ( I > a J 
GO  TO  220 
210  CONTINUE 
220  CONTINUE 

C*«*PC,  CAL.PWR, PACE, ASP, HSLS,FAT,STRM  FOR 
c#»*each  man 

DO  300  I * l.ic 
TEMi  = DNORMl(O.O) 

PCM  >*CWT*TEM1*S16MT|/WT 
CALM  > * PC(  I)»CALRY 
PWR ( I ) * PC( I) *PWRRT 
PaCE(I)  a ACP  ♦ DNORMl(O.O)  . 0,11 
ASP(l)  a AMIN1(  AASP*AASP#DN0RMH0,0)/10. 0,1.0) 

MSLS(I)  • SLEEP*DNORM1(0.0)*SLEEP»0,25 
FATM  )«FBUILD(HSLS(I  > ) 

300  STRMd)  a APST  ♦DNORHl  ( 0 , 0 > “APST/6 , 0 
C**«CAUCUUaTE  PRIMARY  AND  SECONDARY  COmPETaNCE 
C**«FOR  Each  man  and  CCIaJNtTlAl  CREW  COMPETANCE 
CALL  PSCAP( IAA.PCDUM,  PSCOM) 

CC I a 0.0 

DO  360  I a l,  IC 
360  CC  l a CCI*  PCOMM  ) 

CC l a CCl/FLIC 

C*»*CawCULATE  PHYSICAL  INCAPACITIES 
365  DO  370  I . 1.  IC 
PJ(P  = 1.0 
370  pl2 ( I )*0 

NP 1 * 1 PUYSN ( FL IC/MPI ) 

IF  ( NP I .EO.O)  GO  TO  3?0 
DO  380  I = l.NPI 
I I a UNIFm1(0T0)»FlIC 
PI|  U)  = 0.2*UNIFM1(0.0)*0.75 
380  PI2MD  . I PUYSN  I P I Di 

c^p.giv1-  DAY  0^  ITERATION*. -1NITIALI?ATI0NS 
550  ND  ■ 1 

DO  560  I a 1 , KM AY 
560  IDEM  ) * 0 

00  570  I a l.iOMAX 
570  I DF  f I)  a 0 

DO  580  1 = 1 , UMAX 
580  <ONC  ( I > «?  KONU) 

DO  585  I *i,lmAX1 
585  KONC1  ( I ) » KON1  ( I ) 

DO  590  I ■ 1.1C 
NS(!)  = 0 

ACAL(I)  5 HSLSM)*CALM>/24.0 
CASP(I)  * ASP ( I ) 

PERFM  )8ASPM) 

Nosucm  « 0.0 

590  NOFAIL(I)  * O.'O 

c 

c DETERMINE  day  of  OCCURRENCES  OF  NEXT  FAILURES  AND  EMERGENCIES  FOR 
C FAILURE  AND  EQUIPMENT 

C 

DO  605  I a l.IOMAX 
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II  a RELH  (I)  • ALOG(  UN  I FM1(  0.0) ) - 0.5 

IT { I I .EO. 0) 1 1 s-1 
6 g5  IHF  (I  ) * IDFUI-I  I 
DO  610  I = l.KMAX 

II  s NDbE(J)  ,aLOG(UNIFM1(0.O))  - 0.5 

J F { I I , EQ  , 0 ) I 1 **•  1 
610  IDEM)  * IDE  (I)  - II 

IF  ( I ND  < 3 ) . EO . 0 ) GO  TO  650 

WRITE  ( 6 # 9610  ) <1 # 1 DF ( I ) , I * 1 # I OH AX ) 

96i0  F0RMAT(19H1PRINT  OPTION  THREE/39H  FAILURE  TYPE---DA Y OF  FIRST  OCC 
lJRRENCE/tlH  IOC  13* 1M- 1 1 4 . 4X ) ) ) 

WRITE  ( 6 . 9611 ) ( I > I DE ( I ) i 1 * l.KMAX) 

96U  FORMAT(1HO/41H  EMERGBNCY  TYPE  — DAY  OF  FIRST  OCCURRENCE/ 

1 (1H  10(13# 1M-.I4.4X))> 

C»eoBE3 I N SIMULATION  FOR  EACH  DAY ---INITIALISATIONS 
650  N I GNR=0 
NSUCl =0 
NSUC?=0 

nfale=o 

NREPTsO 
DO  655  1*1.4 
655  NPRFm< I>=0 

DO  658  J*1 . 10 

DO  658  1*1.40 
658  CLSDTA(J.I)*  o.O 

usht  * 0<0 

HRSE=0. 0 
HRSR * 0 . 0 
HRSSaO  . 0 
M A yST  =0.0 
MAXSTEsO 

DO  660  I « 1, IEMaX 
660  Z C * I ) = 0.0 

DO  670  I * 1 1 1 c 
TW ( I ) = 0-0 

TWP{I>*0.0 
TWSU  )»0 .0 
MPCC ( I )=0 , 0 
I DC  < I ) * 0.0 
DS(  J ) = 0.0 
NU#  I )*0 .0 
670  Z < I » . 0.0 
CML  * 0.0 
CMUMX*-1,E10 

ichl*o 

SJDCMXaCMLMX 
IDCMXaO 
TEH  a 0.0 
SFDtFFsO . 0 
SEFeO. 0 
ISlEsO 
APAsO. 0 

DO  675  I*l.IOMAX 
CUTU)  a 0.0 
CDT  (I  ) a 0.0 
CART(  I)  * 0.0 
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EPIC  I >«0.0 
675  CONTINUE 
C 

C CALCULATE  sEA  STATE 

c 

I Css  b9 

ATEM  » UNIFHl  (O.O) 

DO  680  I si » 9 

705  FoRMAT(lH0,2!5,2r7.4) 

IF  (ATEM  .GT,  SESTA  (!)  ) GO  TO  680 
ICSS  * I ’ 1 
GO  TO  685 
600  CONTINUE 

685  PSESIC  ■ 0.0555  * ICSS 
DO  690  I«l. IC 
TPCOM  (I)  s PCOM  (I) 

TSQOM  (I)  * SCOM  U) 

IF  (UN  I FMl (0,0)  .GE.  PSESIC)  GO  TO  690 
TPCOM  (I)  = TPCOM  (I>  * (1-  ICSS*  0,0555) 

TSCOM  (I)  = TSCOM  <U  * Cl-  ICSS*  0,0555) 

69.  CONTINUE 

WRITE  (6,68?)  ICSS. PSESIC 

682  fORMAT(19M0CURRENT  SEA  STATE* I 2^l7H  PERCENT  SEAS J C*«F7 , 4 I 

call  dinput 

IF(ND  ,GE.  I N D ( 4) ) WRITE(  6,8502) 

8502  'ORMAT(lHl) 

C«**IDENT!FY  FAILURES  aND  EMERGENCIES  FOR  THE  DAY 

c***and  compute  next  occurrence  for  each 

700  NR  a 0 

<K  a NOSE 

DO  710  I a 1, IQMAX 
JF  ( IDF ( I ) ,NE .ND)  GO  TO  710 
NR  a NR  ♦ 1 
K K * KK  + 1 

JEVENT(KK)a200*( I-l)*12  ♦ 1 

I I sRELH  ( l )*ALOG(UN!FMKO.O>)-,5 
I F ( l 1 .EQ, 0 ) I Is-1 

IDF(I)  . I DF ( I ) - I I 
710  CONTINUE 
750  NE  * 0 

DO  760  I « l.KMAX 
IF  ( 1 DE ( I ) .NE.NO)  GO  TO  760 
NE  a NE*1 
<K  * KK  *1 

JEVENT  (KK)  = I * 560 

II  a NODE ( l ) « ALOG  ( UN  I T M X < 0,0))  - 0,5 

I F ( I J . EQ , 0 ) I l a-  1 

IDE  (I)  * IDEM)  - II 
760  CONTINUE 
NuMFAM  = 0 
NOJFT  s o 

1ST  s (ICSS  ♦ 1)  /10, 

DO  697  1=1, NOSE 

IF  (NR  ♦ NO  I FT  ,GE.  30)  GO  TO  697 
NOJF  = 0 

IF  ( I F 0 1 ( I ) ;NE,  1)  GO  TO  697 
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c 

c 


NUMf*M  ■ NUMtaM  ♦ 1 
IF  (NOIFT  , G T 10)  GO  TO  697 


ACCESS  TYPE  DATA  FROM  DISC 
J TEMs I ETYP ( I ) 

READC12' JTEM,ERR*300Q)  ADUR10 
C 

IF  ( N I QR  .EO.  0)  GO  TO  697 

C 

DO  696  INTO  = l.NIQR 
IF  ( NO  I F .EO,  1)  GO  TO  698 
RY2  * UNIFM1  <0.01 
3TEM  x 0,001 

IFdQDM.GT.  3)  BTEMfO  , 01 
I F ( LOOM . GT , 6 ) BTEM*0.03 
ATEM  r FuNC< RTEM.RY2,  1ST) 

IF  ( ATEM  ,lT’.  UNIFM1(0,0))  GO  TO  698 
NO  I F s 1 
KK  ■ KK  ♦ 1 

COUNTER 

NO  I F T = NOIFT  * 1 

WHICH  REPAIR  SEQUENCE 

IEVENT (KK)*200*12*( JQR(NIQR)»1)*1 

WHICH  SCHEDULED  EVENT  HAS  AN  OIF 

1 0 1 F (NOIFT)  = I 
698  CONTINUE 
697  CONTINUE 

NR  IS  NUMBER  OF  REPAIR  FAMILIES 

Nr  s Nr  ♦ NOIFT 
NOSEl  = 0 

NTE  » NR  ♦ NE  * NOSE 
DO  770  I »1,  NOSE 
IF  ( I F 0 1 Cl > CNE,  1)  GO  TO  770 
IEVENT  (!)  * I 
NOSEl  = NOSEl  ♦ 1 
770  CONTINUE 

RANDOMLY  ASSIGNS  REPAIRS  THEN  EMERGENCIES  TO  TASK  SEQUENCE  AND 
THEN  FILLS  IN  SCHEDULED  EVENTS  TO  QUEUE  IN  ORDER  OF  INPUT 

•**  GENERATE  POINTERS  fOR  EVENTS  FOR  THIS  DAY 
775  DO  780  I « 1 , NTE 
780  PTR( l ) » 0 

JJ  x NqSE  ♦ 1 

TEM1  * NTE-1 

DO  810  I • JJ,NTE 

II  * UNIFM1(0'J0)*TEM1*1,0 

I F C PTR  < 1 1 J ) 785.805*785 
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785  KK  s ii 
790  II  s 11*1 

IF  (II  .GT.NTE)  GO  TO  795 
IF(PTR(II>)  790  > 805»  790 
795  ii  = KK 
800  II  « I I -1 

IF  ( PTR  ( 1 1 ) ,NE  . 0)  GO  TO  000 
605  KK  * I EVENT ( I ) 
pTR( I I ) = KK 
JNVS(KK)  = I I ♦ 1 
810  CONTINUE 

KK  s 1 

DO  820  1=1, NOSE 
IF  (IFOI(I)  .NE.  1)  GO  TO  820 
815  IF  (PTR (KK  } .EQ.  0)  GO  TO  818 
KK  = KK ♦ 1 
GO  TO  815 
818  PTR(KK)  » I 
82q  CONTINUE 

KOUNT  IS  INCREMENT  FOR  NPTr  TO  INCLUDE  OIF  AND  FAMILY  MEMRErS 

IGAP  = 0 
KOUNT  = 0 
DO  831  1=1, NTE 
I PTR  = PTR  < I ) 

IF  (1 PTR  .NE.  0)  GO  TO  841 
I G A P * IGAP  * 1 
GO  TO  831 
041  CONTINUE 

NPTR  ( I ♦ KOUNT  - IqAP)  c I PTR 
IF  (I  PTR  .GE.  561)  GO  TO  831 

ISWi  = 0 SCHEDULED  AND  REPAIR  EVENTS 
ISWi  = i REPAIR  EVENTS  FOR  OIF 

JSW1  = 0 

835  IF  I I P T R .GT,  200  ) GO  TO  842 
I N I F = NJF  ( JPTR)  - 1 
IF  e I N I F .EQ.  o)  GO  TO  834 
GO  TO  843 

842  l N I F = IRE  ((IPTR-200)  /12  ♦ 1)  - 1 
IF  ( J N I F .EQ,  0)  GO  TO  834 
043  Do  832  J*l,  I Nl F 
kO(jNT  = k®unt  * 1 

NPTR  (I  ♦ KOUNT  - IGAP)  S I PTR  * J 
832  CONTINUE 

CHECK  IF  SECOND  TIME  THROUGH 

834  IF  USWi  .EQ.  1)  GO  TO  831 
JF  (NO  I FT  , EQ?  Ol  GO  TO  831 
JF  (JPTR  .GT.  200)  GO  TO  831 
JSW1«1 

DO  833  J»1 # NO! FT 

IF  ( I PTR  .NE.  IOIF(J)  ) GO  TO  833 
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HAVE  AN  OIF 

KOUNT  s KOUNT  ♦ 1 
IPTRs  IEVENT (NTE*J) 

GO  TO  835 
833  CONTINUE 
831  CONTINUE 

THJS  LOOP  COUNTS  TOTAL  NO,  OF  EVENTS 
DO  8 1*1.570 

IF(NPTR( I) .EO. 0 ) GO  TO  9 

8 CONTINUE 

9 NTEsI-1 

DO  821  1*1. NTE 

IF(NPTRU)  .LE.200)  GO  TO  826 

821  CONTINUE 
826  <*=561 

NX(1,KK)=NPTR(  i ) 

PRB(1»KK>*1*1 
DO  824  1*1  , NTE 
<*NPTR< I ) 

I N VS  < K ) = l *1 
I F ( K . LE.200  ) GO  TO  823 
IF ( K , G T .560)  GO  TO  822 

IF  <lPfc<<K-2oi>  /12  * l ) .EQ.  1 ,0R.  I FO l ( K ) ,E0.  2J  GO  TO  822 

GO  TO  824 

822  NX(i,K)*NX(l*KK) 

NX ( 2 > K ) *NX ( 2, KK  ) 

NX(3.K)*NX(3,KK) 

PRB(1,K)*PRB(1.KK) 

PRb(2.K)rPRB(2,KK) 

PRBI3  .K)*PRBI3,KK) 

GO  TO  824 

823  KKsK 

824  CONTINUE 
830  IEIE  * 1 

840  IE  * NPTR  f I E I E > 

(FIRST  * 1 

resets  for  each  event 

850  IPI  « 0 
IGbO 

ITRY  = 0 
IGNOR  = 0 

DO  865  JI  * 1 , NDS 
USH  (JI)  * 0, 

865  CONTINUE 

DETERMINE  WHETHER  EVfiNT  SHOULD  BE  IGNORED 

ACCESS  TYPE  DATA  FROM  DISC 

EMERGENCY  IF  TYPE?  -1 

I TEM* I ETYP ( IE) 

I F ( J TEM  , EQ  . < rl ) ) GO  TO  851 
REaD{12MTEM.ERR*3000)  ADURlO 
60  TO  854 
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851  ADUR*aRT(IE.560> 

ASDs ASDE ( IE-560) 

IESS»IESSE( IE-560) 

„0DM=L0DME< IE-560) 

<E  = 2 

I NT*  1 
NIQRaO 

I H* ! HE ( IE-560  ) 

ICLASS=5 
DO  852  I»l,10 

NREQ( I >=NRE0E< I , IE-560) 

I PC  C I > = IRCE< I , IE-560  ) 

JRCICl  ) = IRCEl  ( I , IE-560) 

852  IEC(I  ) * I ECE  < I, IE-560) 

854  IF  ( IE  , GT . 200)  GO  70  862 
IF  ( I ESS  .GE.  I ET  > GO  TO  855 
IGIND  = 1 
GO  70  1815 
655  <K  a TS ( IE) 

IGIND=4 

DO  860  I = 1 * UMAX 

I F ( KONC  < I ) . LT  . K0NTU.KK))  GO  TO  1815 

860  CONTINUE 
I G I ND*5 
<K=  TS1 ( IE> 

DO  861  Isl.LMAXl 

I F ( KONC  1(1)  ,LT  .K0NTKI  #KK)  ) GO  TO  1815 

861  CONTINUE 

COMPUTE  number  of  hours  per  shift 

862  SFTHRS  = 24 , /FLOAT ( NDS  ) 

IF  ( If  IRST  ,EO.  0 > GO  TO  857 
IF  I PST  a 0 

IF  (NPTR  <l)  .EO.  IE)  GO  TO  863 
857  IF  (NIFUE)  .GT  . i)  GO  TO  863 
IF  ( IFOI  HE)  ,GT  . 1)  GO  TO  863 
IF  f IG  , GT . 1)  GO  TO  863 

HAVE  FIRST  EVENT  IN  ONE  EVENT  F AM  I L V WjTH  ONE  MAN  GROUP 

JJsMAT(l) 

IL  * ITYPE  <JJ> 

IF  1NREQTCU)  .NE.  1)  GO  TO  863 

ATEM  a KTEMP  • SFTHRS 

IF(ADUR*Z< JJ);LE,ATEM«0,33)G0  TO  1150 

863  CONTINUE 

JJ  * I PE ( IE) 

JNDS  • NDS 

DETERMINE  EARLIEST  shift  job  can  be  STARTED  on  and  LATEST  TIME  by 
1 JOB  MUST  be  COMPLETED 

III  * ( AMAX1(2C( JJ) i ST< IE) ) J/SFTHRS  * 1.0 
I F ( KE  .EQ.l) JNDSbTLI IE)/SFTHRS*  ,99 
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ISH t Ft  s 0--FIRSt  SOR?  tHR0mGH  ALL  POSSIBLE  SHJFtS 
LSHIFT  * i--  SEC6ND  sort  with  desired  shift 

LSHIFT  = o 

905  FORMAT  (10H0SHIFTHRS«F11.3»jJ6) 

GO  TO  877 

BRANCH  TO  HERE  WHEN  LSHIFT  * 1 

878  III  = K TEMP 
JNUS  * KTEMP 

077  DO  875  JI  ■ Hl.JNDS 

***  IG  IS  TOTAL  NUMBER  OF  MEN  REQUIRED  FOR  EVENT 
WRITEI6.106M  KTEMP,  I I I , JNDS 
10&6  FORMAT(1H04I10) 

JG  « o 
I P I *0 
IGNOR  =0 

DO  880  I = l.NTMAX 
880  NREOT( I)sNREQ( I ) 

«**«  SELECTION  OF  PERSONNEL  FOR  EACH  TYPE 

**o  kind  = o wwen  selecting  primary  specialties 

«*<  KIND  = 1 WHEN  SELECTING  sECONDARY  sPECIALtIES 

DO  885  1*1,  IC 
385  MCH5N ( 1 )=0 
KINO  * 0 
II  « 1 
<A  * 0 

IF  1 1 NT  .EQ.2>  GO  TO  1020 
900  IT  (NREQT( 1 1 ) ;NE,0>  GO  TO  925 
910  IF  ( l I .EQ.NTMAX)  GO  TO  920 
II  = 11*1 
<A  s 0 
GO  TO  900 

920  !F  UPl.EQ.O)  GO  TO  1 Q 6 0 
IF (KIND)  1060,1020,1060 
925  JF  (KA.NE.O)  GO  TO  990 
TEM1*TL(IE) 

LL  * KIND*20 
DO  950  I * 1,1C 
LL  * LL*1 

IF (MCHSN( I ) ,NE.0>  GO  TO  950 

TRIVIAL  CASE  IS  IDSUI  ,1)  * 1 FOR  ALL  JI 
THIS  CASE  IS  ORIGINAL  --NO  SHJFT--MODEL 

IF  (IE  .GT,  ?00)  GO  TO  930 
IF  (IDStJI,!)  .NE.  1)  GO  TO  950 
NKOUNT  * NKOUNT  ♦ 1 
IF  (NKOUNT  .GT.  100)  GO  TO  934 
WRITE  (6,941)  I , JI rSFTHRS 
934  CONTINUE 

ZTEMP  * JI  * SFTHRS  ♦ 1,0 
IF  (ZTEMP  , GT?  24.0)  ZTEMP  s 24.0 
IF  (NKOUNT  .GT.  100)  GO  TO  942 
WRITE  (6,941)  JI.ItSPTHRS, ZTEMP >Z(I) 
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941  FORMAT  (6H0ZTEMP  215.9F10.3) 

942  CONTINUE 

IF  ( Z < I ) , GT , ZTEMPJ  GO  TO  950 
930  CONTINUE 

IF  ( I PSS ( LL ) , NE . 1 I)  00  TO  950 
I F ( Z ( I ) .GT.TEM1)  GO  TO  950 
IF  ( TW ( I ) . GT  , H0RK2  > GO  TO  950 
4 A a K A ♦ 1 
MAVAIL(KA)  = I 

calr=pwr< I > 

TEM2  • IEC  ( 1 I ) 

IF  (CALR.LE.TEM2)  GO  TO  935 
CALR  « 1,0 
GO  TO  940 

935  CALP  = CALR/TEM2 

940  T A V A I L ( K A ) = 1 000 . 0-10 . 0*TW  ( I ) *CAl,R*TPSCOM  ( LL  > 
950  CONTINUE 

IF  (K  A , NE , 0 ) GO  TO  960 
955  I P I 8 i 

IF  (KIND.EQ.0J  GO  TO  910 
958  IF  (LSHIFT  ,EO.  1)  GO  To  910 

JSH(JI)  * USH  <JI>  * ADUR  •FL0AT(NREQT< I I ) ) 

50  TO  9io 
960  KK  t KA-1 

IF  (KK.EO.O)  GO  TO  990 
DO  980  I ■ 1,KK 
LL  s K A-  I 
DO  970  J = 1 1 LL 
T EMI  « TAVAIL(J> 

IF  (TEM1,LE.TAVAILCJ*1>>  GO  TO  970 
TAVAJL(J)  » T AV  A I L ( J*1 ) 

TAV A IL { J ♦ 1 ) 8 TEM1 
NN  = MAVAILCJ) 

MAVAJL(J)  * HAVAIL(J*1) 

MAV A 1 L ( J*1 ) a NN 
970  CONTINUE 
980  CONTINUE 

990  IF  (KA.EQ.O)  GO  TO  955 
NN  8 MAVAIL(KA) 

<A  ■ KA-1 

IF((  IE.GE.561)  .OR.UBSS  .EG. 100))  GO  TO  1000 
IF  (TW(NN)*A0UR  .LB.WORKl)  GO  TO  1000 
995  IF(KIND.EQ.I)  GO  TO  958 
JPI  * 1 
GO  TO  910 

1000  I F ( TW ( NN ) ,GT?W0RK2)  GO  TO  995 
I G*  J G* 1 
MCHSN(NN)>1 
MACIG.II)  e NN 
MAT ( I G ) 9 NN 
JTYPE(NN)  8 II 
NREOT(II)  > NREOT  ( 1 1 ) <t  1 
l F ( K A .NE.  0)  GO  TO  900 
I F ( NREOT  < I I ) ) 955,9104955 
C 

c RESET  FOR  SECONDARY  SB ARCH 
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1020  KIND  s 1 
II  « 1 
GO  TO  900 

£>•*  SELECT  LEADER 

1060  CONTINUE 
875  CONTINUE 

WRITE (6 .1063)  ( USH ( I ABC ) , I ABC* 1 1 I , JNDS ) 

1063  FORMAT (9h0USwOURS*12F10,5) 

LSHIFT  « 0 CHECK  ALL  SHIFTS 

wSHIFT  a 1 ONCE  THROUGH  LOOP  WITH  BEST  SHIFT 
IP  (LSHIPT  .FQ.  1)  GO  TO  1064 

ASSIGN  J0R  TO  SHIFT  {FIRST  WITH  ZERO  USH  OR  MINIMUM  OSH) 
<TEMP  a HI 

IF  < III  .EG,  JN0S)  GO  TO  1064 
I I I Pi  = III  * 1 
DO  1061  JI  * lUPlfJNDS 
RTEMP  = USH(JI)  - USy(KTEMP> 

WRITE  ( 6 , io?2 ) JliUSHlJU.  USH(KTEMP)  ,RTEMP 
1072  PORMAT(iHOl6,3F9,5) 

JF  (RTEMP)  1076*1061 *1061 
1C>6  RTEMP  = RTEMP  * O.OOfll 

IP  (RTEMP)  1078,1061,1061 
1076  CONTINUE 
ktemp  = JI 

1061  CONTINUE 
LSHIFT  > 1 
GO  TO  878 

1064  FL I G 3 IG 

I F ( I G . NE . 0)  GO  TO  1065 
IGIND  = 2 
DO  1062  I *1 » NTMAX 

1062  IG«IG*NREGT( I) 

USHsUSH*  ADUR  (IE) -FLOAT  UG) 

30  TO  1815 

1065  LI  = MAT(l) 

JJ  * ICE(LI) 

IF  UG.EO.l)  GO  TO  1190 
DO  1080  I > 2, I G 
KK  * MAT(I  ) 

I F I ICE(KK)-jj)  1075,1070,1080 
1070  IF  (TPCOM(KK)  ,LE.  TPCOM^Ll))  GO  TO  1080 
1075  LI  « KK 

JJ  * ICE(KK) 

1080  CONTINUE 

DETERMINE  Z1  s EARLIEST  TIME  ALL  QrOUP  IS  AVAILABLE 

1150  <K  * 0 

Z1  s 0.0 

DO  1160  I = 1 , IG 
JJ  a MAT( I ) 
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1160  Z1  « AMaX1(Z1*Z(JJ) ) 

determine  earliest  time  when  the  event  can  begin 

JJ  ■ IPE(IE) 

TEM23Q.0 

IMJJ.NE.O)  TEM2pZC(dJ) 
aTEM  « KTEMP  *SFTHRS 
Z2pAMAX1(Z1,TEM2,ST(IB),ATEM> 

IF(Z2  ,LT.  TU(IE))  GO  TO  H62 
IGIND  * 3 

JSH/KTEMP)  = USH  (KTEMP)  ♦ ADUR  • FUG 

GO  tO  1815 
C 

1162  DO  H65  I e 1<IG 
JJ  « mat ( I ) 

IS  A NON-SCHEDUIED  REST  OR  SLEEP  REQUIRED  DUE  TO  STaRT  TIME 
WH(JJ)  - Z2-Z(JJ) 

IF  (WH(JJ) .NE.0.0)  KK  * 1 
1165  CONTINUE 

IF(KK.EQ.O)  GO  TO  1260 
TEM2*CN* . 5 

c**eo*  is  the  time  since  last  event  long  enough  to  allow  sleep 

DO  1260  1*1,  IG 
JJ  * MAT(I ) 

lr (Wh(JJ)  ,LT .TeM2>  g0  TO  1240 
IS  SLEEP  QUOTA  FOR  DA*  USED 
I F ( D S ( J J ) , GE  • MAXSU  GO  TO  1240 
C*«*  OR  **  IS  FATIGUE  UNDER  THRESHOLD 
IF(FAT(JJ)  .LE,  TFAT)  GO  TO  1240 
C«««  NEITHER  •«  SUM  SLEEP  THIS  DaV  FOR  EACH  M IN  G 
TEmi=MAXSL-DS< JJ) 

C * * * LIMIT  WW(JJ)  so  that  ds  ,le.  maxsl 
DS( JJ)«AMINl(DS( JJ)*WH( JJ)-.5.MAXSL) 

C***  CALCULATE  TIME  FATIGUE  DUE  TO  SLEEP  RELIEF  TOR  EACH  M IN  G 
TEMipAMlNi(WH( JJ)»TEMl)-,5 
JFfTEMi  ,LE . 9,0)  GO  TO  1205 
1200  FaTIJJ)  a 0.0 
GO  TO  1220 

1205  JFlTEMi  ,LT.  l , 0 > GO  TO  1210 

FATIJJ)  * FAT(JJ>*((158, 0-19, 0*TEM1)/1«0. 0*0. 2*UNIFM1<0.0)) 

GO  TO  1220 

1210  FAT(JJ)  t FAT(JJ)#(0,9-0.05*TEMl*0.2*UNIFMl(9.0n 

1220  IF (FAT (JJ)  ,LT.  q • 0 ) FaT(JJ)  ■ 0«U 
I F ( F AT ( J J ) ,GT.  1.0)  FAT<JJ)  a 1,0 
ACAUJJ)  * 0,0 
TEM1  = FAT(JJ) 

IF ( TEMl  , GT . 0.9)  GO  TO  1225 
I F ( TEMi  , GT , 0.15)  GO  TO  1224 
HSLS(JJ)  • 53'-  333333  « FATIJJ) 

GO  TO  1260 

1224  HSLS(JJ)  » 14T6666674TEM1*5.8 
GO  TO  1260 

1225  HSLS ( JJ >«AMAXl <310, 04TEM1-260. 0,0.0) 

GO  TO  1260 

C*«»  ADJUST  HOURS  SINCE  LAST  SLEEP  FOR  THIS  M 

1240  HSLS(JJ)  > HSLS(JJ)  * WH<JJ) 

C CALCULATE  FaTIGUE  BUILDUP  FOR  THJS  MAN  DUE  TO  REST 
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1260 
c * # * 

r«#« 

1280 


1285 

12*0 


1295 

£•«« 


1370 

1375 


1377 

1378 

C«>» 

1300 


1310 


1320 


1380 

C»«* 


l390 


FAT(jj)  x FBUILO(hSLSUJ)) 

CONTINUE 

calculate  physical  capability  or  each  man  in  group 
save  max  phys  capability  for  each  man 

GPCC  = 0,0 
DO  1295  I * 1,  IG 
JJ  = MAT(I  ) 

<K  * IPSIJJ) 

TEM2=IEC(KKJ  /PWRIJJ) 

IP  (TEM2.GE.1 .0)  GO  TO  1285 
EXER  « 1.0 
GO  TO  1290 

EXER  * <ZPC-TEM2)/<ZPC-1.0> 

TEMjx(aCAL(JJ)/CAL(JJ) )»«2 

TEM1  « PC  ( JJ)»Pl  <JJ)*(1,0-(1.0-K1)*TEM1)*EXER*(1.0-C.1*FAT(JJ)  ) 
IF  (TEM1.LT.0V0)  TEM1  * 0.0 

IF  (TEM1.GT.270)  TEHl  « 2,0 

MPCC( JJ)«AMAXi<HPCC(JJ> .TEMl) 

PCC( JJ)»TEM1 
GPcC  a GPCC*TEM1 
GPCC  = GPCC/FL  IG 

CALCULATE  GROUP  STRESS  THRESHOLD  AND  GROUP  STRESS 
GSTRMaO  . 0 
DO  1370  I x Is  I G 
JJ  * M AT ( I ) 

GSTRM  = GSTRM+STRM< JJ) 


GSTRM  * GSTRM/FLIG 
IF{  IE.GE.560  ) GO  TO  1377 
GSTR  = ( ADUR  *( .875*L0DM 
GO  TO  1378 
GSTRxGSTRM 

IF  (GSTR.GT.5?0)  qSTR  x 5,0 
IF ( GSTR , LT  . 1 V 0 ) GSTR*1,0 
CALCULATIONS  FOR  PERFORMANCE 
I F ( ASD  ,NE:o.O)  go  TO  1380 
JF  (KE  ,NE:i)  go  TO  1310 
JF(<Z2*AQUR  > .GT.  TLUE>> 

P T ( IE)  x ADur 
ZC ( IE)  * TL(IE> 

GO  TO  1550 
PT(  IE  ) » ADUR 
ZC(JE)  x Z2*PT(IE) 

GO  TO  1550 
PT(IE)  x TL < ! F ) -Z2 
ZC ( IE)  * TLUE) 

GO  TO  1550 
PAF  s i.o 

calculate  group  performance, 

GPERF  X 0.0 
GASP  = 0,0 
DO  1390  l « 1,IG 
JJ  x MAT ( I ) 

GPERF  x GPERF  + PERF < JJ) 

GASP  x GASP*CASP( JJ) 

GPERF  x GPERF/FLIG 
GASP  = GASP/rLlG 


*.  025>)/(TUIi)-Z2) 


TIME  AND  END  TIME 


GO  TO  1320 


GROUP  ASPIRATION  LEVEL 
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non 


0««  SELECT  ONE  OF  FIVE  CASES  COMPARING  GASP  WITH  GPERF 
C***  AND  GSTR  WJTM  GSTRM 

TEMi  = GASP-GPERF 
IF  (ABS(TEMl)  .’LE.0,02)  GO  TO  1460 
TEM2  * GSTR-GSTRM 
IF  (TEM1.GT  . 0 0 ) GO  TO  13*5 
IF  (TEM2)  1410.1450i1450 
1395  IF  < TEM2 ) I4fl0 » I430i £430 
1400  PAF  s 1,0*0. 4*TEMl 
GO  TQ  1460 

1410  DO  1420  I ■ 1/IG 
JJ  * MAT ( I ) 

TEM3*PERF (JJ)-CASP(JJ) 

IFITEM3.LE.0V0)  GO  TO  1420 
TEM3»CASP( JJ)*0  .1*TEM3«DN0RMK  p ,0) 

IF  ITEMS. GT. 1.0)  TEM3  = 1.0 
CASP ( jj) «TEM3 
1420  CONTINUE 
GO  TO  1460 

1430  DO  1440  I = 1/  1 G 
JJ  « MaTU  ) 

1440  CASP(JJ>  3 PERF(JJ) 
pAF  s 1 . 0*0 . 4*  TEMI 
GO  TO  1460 

1450  GSTR  = 0 . 9*GSTRM 

CALCULATE  PERFORMANCE  time 
14  60  IF  (GPCC.GE  .1, 0)  GO  TO  1470 
SF  s 2.0-GPCC 
GO  TO  1480 

1470  SF  s i . 5-GPCC*0 . 5 
1480  TEM3  * 0.0 

DO  1490  I = 1/IG 
JJ  = MAT(l) 

1490  *EM3  = TEM3*PACE(JJ) 

SPACE  s TEM3/FLIG*SF«PAF 

TEST  FOR  REPAIRS 

IF  (IE  .LT.  201)  GO  TO  1492 

IF  ( IE  , GT . 560)  GO  TO  1492 

TEMI  a 1 ♦ USD  *ASD)FUDUR  • ADUR) 

V « EXP(ALOG(ADUR/SORT(TEM1) ) * DNQRM1  (0,0)  • SORT  < ALOG(TEMl ) ) ) 
GO  TO  1493 

1492  v>  ADuR  ♦ DNORMl(O.O)  • ASD 

1493  CONTINUE 

ADUR  2 = ADUR/2. 

V = AMAXKADUR2.  V) 

C 

IF  (TEM2.GE.0 .0)  GO  TO  1500 
TEM3  a (GSTR-1. 0)/(GSTRM-l. 0) 

PT(IE)  « GPACE  ♦ V •((-  2.3075  • TEM3)  ♦ (3,4722  • TEM3  • TEM3) 

1 ♦ (-1.829  * TEM3  * TEM3  • TEM3)*1) 

C PT(IE)  = GPACE*V*(1,0*TEM3*(-2.55075*T6M3*(3. 4722-1. 829*TEM3))) 

SO  TO  1535 

1500  IF  (TEM2.GT,i,0)  GO  TO  1510 

PT{ lE)aGPACE*( (2,o»TEH2*l.o)aV-TEM2«ADUR) 
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7 •GRACE 


30  TO  1535 

1510  pT(IE)  s ( 3 . o* V- ADUR 
C LIMIT  PT(IE) 

1535  IF(PTUE)  .GE-  0.0)  GO  TO  1537 
pT< IE)  « 0.0 
GO  TO  1539 

1537  TEM1  s 4,0*ADUR 

l F { PT ( IE)  ,UE.  TEM1)  GO  TO  1539 
PT(IE)  » TEMi 

c*««  calculate  real  time  or  event  completion 

1539  ZC{!E)  * Z2  * PTC  IE) 

IFtZC< IE) .LE.TLC IE>)  GO  TO  1545 
PT(  IE)  = TLUE)rZ2 

JSh(KTEMP)  = USH(KTEMP)  ♦ FLIG  * < ZC ( IE  > - TL ( IE)  ) 

ZC(lE)xTLME) 

1545  IF(ZC(IE).LE.24.0)  GO  TO  1550 
pT( IE  ) x 24 . 0-Z2 
Z C < IE)  * 24.0 
1550  CONTINUE 

C«**  UPDATE  HSLS.  TW, Z , CBAL , ACAL , I DC  FOR  EACH  MAN 
1560  ITRY  * I TR Y ♦ 1 

1 r < Ie.GT.560)  GO  TO  1566 
00  1565  I »1 » NI OR 
J TEM«  I OR { I ) 

IFCIE.GE.201)  GO  TO  1562 
CUT ( ITEM)*CUT( ITeM)*PT( I e > 

GO  TO  1565 

1562  CDTC ITEM) ,CDT < I TEM > *P? < JE) 

CART  (ITEM)  * CART  (ITEM)  ♦ ADUR 

1565  EPLC  ITEM)  »CUT(  ITEM)/ CC|JT<  ITEM  ) ♦CDTC  ITEM) ) 

1566  CONTINUE 
TEMI  > PTC  IE) 

TEM2  * ZC( IE) 

TfcM3«TEMl 

S JDC»0 , 0 

DO  1580  I = 1 » I G 
JJ  s MAT ( I ) 

HSLS(JJ)  * HSLS( JJ)*TBM1 
Z(JJ)  = ZC(IE) 

<K  c ITYPE(JJ) 

CCALCJJ)  * IEC(KK)  «TEM3*( , 95+UN IfMl ( 0 , 0 ) /10 . ) 

AC  Al  ( J J ) * ACAL  <JJ>*CCAL<JJ> 
l DC  C j J ) * I DC  ( J J )*CC AL C J J ) 

TWCJJ)  * TW(JJ)*TEM1 
irCKK.EQ.  IPSCJJ) ) GO  TO  1579 
CLSDTAC7. ICLASS)«  CLSDT AC  7 , 1 CL ASS  ) * PTC  I E > 

TWS< JJ)=TWS( JJ)*PT< !E) 

GO  TO  1580 

1579  TWP(JJ)»TWP( JJ)*PT( IE) 

CL  SDTA ( 6 * I CL ASS) s CLSDTAC6i 1 CL ASS ) ♦ pT  C I E ) 

1580  S I DC  = S I DC  * CCALCJJ) 

IFCSIDC.LE.SIDCMX)  GO  TO  i582 

SJDCMX-SIDC 

IDCMXsIE 

1582  TEM2*L0DM  *TEM1 
C***  ACCUMULATE  CML  AND  SAVE  MAX 
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JF(CMLMX,GE.TEM2)  go  to  1585 

CMLMXaTEM2 

ICMLpIE 

1585  CMLaCML*TEM2 

c***  event  hazard  and  SUM  for  day  heh) 

EH  x TEMlMH 
TEH  > TEH*EH 

c**«  calculate  PERFORMANCE  adequacy 
1600  I F ( I TRY , GT  , l ) GO  TO  1645 

IF  (GSTRM.GE.GSTR)  GO  TO  1610 
(F  (GSTR.LE.5';0)  GO  TO  1620 
ES  » 0.0 
GO  TO  1630 

1610  ES  , <i,0-8E>/<GSTRM-l.0?*GSTR*BE 
GO  TO  i*3q 

1620  ES  3 (5.0'GSTR)/(5.0-GSTRM) 

1 63q  TEM1  sTPCOM(LI) 

IF  C I TYPE  C L I >7NE,IPS(in  J TEM1  *T$COM<LI) 

EC  ■ 2 . 0*TEM1 
EA  x 2 . 0*C ASP ( L I ) 

00  1640  I = 1,  IG 
JJ  « MAT(  I ) 

IF  ( I TYPE ( J J > 7NE , IPS(JJ)  ) TEM2  ?T$COM(JJ) 

TEM2  xTPCOM(JJ) 

EC  ■ EC*TEM2 
1640  EA  x EA*CASP(JJ) 

TEM2  = FLIG*2'.0 
EC  x EC/TEM2 
EA  x EA/TEM2 
EFxaMIN1< l. O.GPCC) 

GO  TO  1647 

1645  ECxAMINKEC*  . 2, 1 . 0 ) 

1647  TEMl  * EF*EA 

WRITE  (6,1650)  PA,TEMl,ES.EF,EA,EC 

Pa  x SQRT<<3,o*EC*<TEMl*ES)*ES*TEMl*EF«EA)/l2.Q> 

WRITE  (6,1650)  PA»  TEMl,ES,EF,EA-r£C 
APA*APA*PA 

0*«  COMPUTE  EFFICIENCY  FACTOR 

C 

SEF  * SEF  ♦ (PA«FLOAT( IESS  > ) /( C ASP (L I > *K7 > 

WRITE  (6,1650)  Pa;CA9R(LI ) ,K7  ,SEf 
1650  FORMAT ( 5H  SEF  6F10.5I 
WRITE  (6,1655)  IESS 
1655  FORMAT  ( 5H  IESS  5 1 10 ) 

ISIE«ISIE*IESS 

c**<»  CALCULATE  TIME  FATIGUE  And  phys  cap  tor  ALL  men  IN  GROUP 
1700  GPCCsO.O 

DO  1740  I = 1#  IG 
JJ  X MAT(I) 

FaT(JJ)  s FBUILD(HSLS< JJ) ) 

KK  x ITYPE(JJ) 

T EM2= I EC ( KK ) /PWR(JJ) 

IF  ( TEM2 . GE . 1?  0 ) GO  TO  1725 
EXER  = 1,0 
50  TO  1730 

1725  EXER  = (ZPC-TEM2)/(ZPG-1.0) 
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1730  TEMieUCAl  ( JJ)/CAL  (JJJ  )«*2 

TfcMl  s PC(JJ)«PI  <JJ)*U,0-(l.0-Kl)*T6Ml)«EXER*U,0-C,l*FAT(JJ> ) 
IF  (TEMi,GT.2.0>  TEM1  » 2,0 
IF  (TEMl.LT.O.O)  TEMt  « 0.0 
MPCC(JJ)«*HaK1(MPCC»JJ),TEM1) 

PCC(JJ)  * TEM1 
1740  5PCC  * GPCC+TEH1 
3PCC  * GPCC/FUG 

c»*«  calculate  mew  consumable  LEVELS 

TEM1  = PT ( 16) 

DO  1750  I = 1/LMAX 
KONEC I )*IRC( I >*TEM1 
KONC ( I ) * KONC ( I ) -KOBE ( I ) 

1750  CONTINUE 


00  1752  J»1,LMAX1 
«ONEl< I >*IRC1( I ) 

<0NC1( I)«K0NC1( I )-K0NBl( I ) 

1752  CONTINUE 

C»*»  NO  CONSUMABLES  (jSED  Up 
C*««  DETERMINE  SUCCESS  OR  FAILURE  FOR  EVENT 
1755  SUCC  = YU 

FDIFFsCASP(LI >*K7-PA 
IF(FDIFF.LT,o,0>  SUCC«ESSS 
CLSDTAU.  ICLASS)*  CLSDTA<1,  ICLASS)  ♦ i 
CLSDTAI8. ICLASS)*  CLSDTAISi ICLASS)  * PA 
ClSDTa<9. IClASS)*  CLSDTA<9, ICLASS)  ♦ FDJFF 
IF  (SUCC.EG.ESSS)  GO  TO  1770 
SfdIFF*SfdIFF*FDIFF 
C««*  FAjlED 

DO  1760  I * i.j  IG 
JJ  * M AT ( I ) 

1760  NOFAJL(JJ)  = NOFAIL (JJ >*1 . 0 

nfale=nfale*i 

CLSDT  A(4 . ICLASS) * CL9DT A ( 4 * I CL ASS ) * 1 
GO  TO  l79o 
C***  SUCCESS 

1770  DO  1780  I * 1/ I G 
JJ  * MAT ( I ) 

NU ( JJ ) *NU ( JJ ) *1 , 0 
1780  NOSUC( JJ)*N0SUC( JJ)*1,0 

KK  t 1 

I F C I TRY , EQ . l ) GO  TO  1775 
NSUCP*NSUC2*1 

CLSDTAJJ, ICLASS)*  CLSDTA(3. ICLASS)  * 1 


GO  TO  1790 
1775  NSUC1"NSUC1*1 

CLSDTAI2. ICLASS)*  CLSDTA<2. ICLASS)  * 1 
C*«*  CALCULATE  PERFORMANCE  LEVEL  FOR  MEN  IN  GROUP 
1790  DO  1800  I * 1 * I G 
JJ  » M AT ( I ) 

TEM1  = NOSUC(JJ)  ♦ NOFAIL(JJ) 

IF(TEMi  ,Gt.  5,0  .AND.  NOsUC(JJ)  ,GT,  0.0) 

X PERF(JJ)  a NOSUC ( U J ) /TEM1 
1800  CONTINUE 

NPRFM(l)aNPRFM(l)*l 
USHT  a USHT  ♦ USH< KTEMP ) 
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C*«o  UPDATE  MAX  STRM  FOR  TJE  DAY 
IF ( MAxST . GE , GSTR ) GO  TO  1005 
MAXST=GSTR 
MaXSTE=IE 
1805  GO  TO  1820 

C**«  COME  HERE  FOR  IGNORE  LOGIC 
1015  IGNOR  = i 

N I QNR=N I GNR*1 
PT{ JE)  s 0.0 

c i,sdta ( i . i class ) ? cisdtami  iclassi  ♦ 1 

CLSDT  a ( 5 . I CLASS ) * CLSD7A( 5i IClASS)  • i 
GO  TO  1824 

C***  TEST  for  print  OPTION  AFTER  updating  hours  spent  in  ACTIVITIES 
1820  IFME.GT.200  ) GO  TO  1821 
HRSS  = PT(  IE)*FUG*HRSS 
NPPFM(2)*nPrFM<2>*1 
go  TO  1024 

1621  IFME.GT.560)  GO  TO  1822 
HRSR«PT( IE)»FLIG*HRSR 
NPRFM(3)sNPRFM(3)*1 
GO  TO  1824 

1822  HRSE*HRSE*PT( IE)*FLIG 
NPRFM(4)«NPRFM(4)-fl 

1824  IF ( ND~ I ND ( 4 ) ) 1890.1825,1830 

1825  IF  ME.LT.  IND(5>>  G°  T0  1890 
1830  I F ( I E .GT.  560)  GO  TO  1850 

I F ( IE  .GT.  200)  GO  TO  184q 
<K  ■ 1 
lL  » Ifc 

I F C IGNOR  ,E0.  1)  GO  TO  1880 
Go  T0  i860 

1840  <K  » 4 

lL=  { IE  - 201 ) /12*1 
IFMGNOR  , EO . l>  GO  TO  1880 
GO  TO  i860 
1850  <K  > 7 

LLbIE-560 

IF  < IGNOR  . EQ.  1 ) GO  TO  i860 
C*»«  PRjNT  event  data 
1860  l I ■ KK*2 

l PET  = IPE(IE) 

TEM1  b o,0 

IF  ( IPET.NE.O)  TEM1  • ZCMPET) 

WRITE (6.9860  ) ( T! TLE (l ) , 1 *KK. I IT . IL. ND , I TER, 8UCC, Z1 . ST ( I E ) . I PE T , 

1 TEMi.Z2,PT< IE) ,ZC< IE) .USH(KTEMP) , GSTR , GPCC , QP ACE . GASP  , P A , EH , 

2 (KONEC I ) . 1-1.10 )i (KONC( I > • IhI  .10) * ( KONE1 < I) * I tl , 1C  7 , ( K0NC1 M ) . 1 1 
2 1,10)  ... 

9860  FORmaT(/!H03A6. I3J5H  DAY,l3.1lH  I TeR A*  I ON , 1 3 , 2* , 1 A6/ 

1 ioH  MEN  AVAIL  .F5.1.15H  START  ALLOWED. F5 ,1*13H  PRIOR  EVENT, 

2 13, 9H  FINISHED. F6. 2. 13H  EVENT  STARTS . F6 . 2 , 6H  LASTS, F6. 2, 

3 5H  ENDS.F6.2/13H  UNMANNED  HRS.F7.2/ 

4 13H  GROUP  STRESSTF5.I.9H  PHYS  CAP,F5.a,5H  PACE.F4.1.5H  A8P.F5.2, 

5 8H  PERF  AD.F6.2.4H  WAZ , F5 . 1 , /lX , 17HPER  HR  CONS  USED^lOFd.O, 

9 /1X.17HPER  HR  CONS  LBFT*10 F6 . 0 , /IX , 15  HUN  I T CONS  USED«10I6, 

9 /I X , 15HUN I T CONS  lEFT«10I6,/ 

6 HlHoMAN  TYPE  SPEC  LDR  RANK  FATIGUE  PHYS  CAP  HRS  WRKD  CALORIE! 


203 


7 cais*hrs  since  sleep  idle  hrs  slept  cum  perf  asp) 

DO  1870  1 B 1,  IG 
1 1 « math  ) 

KK  a JTypE<I!) 

TEM1  = PEA 

if(kk.ne.  iPsmn  tehi»esss 

TEM2  = BLANK 

IF  U I .EQ.LI)  TEM2  = STAR 
TEM3«IEC{KK) 

WRJTE(6,9865>  I I , KK , TEM 1 , TEM2 , I CE  (I  l ) , FAT  U II . PCC  < I H . TW  { 1 1 ) i 
1 CCALfll)  .ACAL(!II*HSLS<m,WH<in,DS<II>.PEAFC  JP.CASPf  m 
9865  FORMAT  ( l 4 . 1 5. 2A6, I 5 , F8 , 3 . F9 , 3 . F9 , 2 . F9 i i , F i0 . 1 • Fll • 1 * r5 • 1 • Fl0 • 1 * 

1 F9.2,F5,2> 

C 

18/0  CONTINUE 

30  TO  1890 

O**  PRINT  IGNORE  DATA 

1880  I I * KK*2 

WR l TE ( 6 . 9880  ) ( T I TIE  tj  ) , I «KK  , I I) . LL , ND , I TER 

9880  FORMAT (/IHO3A6* 1 3 ^ 5 H DAY.I3.llH  I TERAT  I ON , 13 . 

1 18H  IS  IGNORED  DUE  TO) 

l F { I G I ND  . GT , 1 ) GO  TO  1881 
WRITE(6.9881)  IESS 

9881  "0RMaT(1H*,63X,20H10W  ESSENTIALITY  OF  12) 

SO  To  1890 

1881  I F ( I G I ND  .GT,  2)  GO  TO  1882 
WR I TE ( 6 , 988  2) 

9882  FORMaT(1H*,63X,i0HNULL  GROUP) 

GO  TO  1890 

1882  IF ( I G I ND  .GT,  3)  GO  TO  1883 
WRJTEI6.9883) 

9883  r0RMAT(lH*,63X,17HN0  TIME  AVAILABLE) 

GO  TO  189q 

1883  IF  ( I G I ND  . GT7  4 ) GO  TO  1884 
KK  ■ TS  (IE) 

WRITE (6, 9884)  (KONT(IJKK) . I Pi >18) 

9884  F0RMAT<1H*,63X.38HC0NBUMABlE  (UNIT/HOUR)  BELOW  TMRESHOLD/1WO»10F8 
1 0 ) 

GO  TO  1890 

1884  KK  > TSl  ( IE) 

WRITE  (6.9885)  (KONT1<I,KK).1b1,iO) 

9885  FORMAT( iH*,63X,34HC0N9UMABLE  (UNITS)  BBLOW  THRESH0LD/1H0 . 10F8 , 0 ) 
C***  CHECK  JF  RETRY  OF  EVENT  15  NECESSARY 

1890  JF(SUCC.EO.ESSS)  GO  TO  1692 
I F ( I TRY , GT , 1 ) GO  TO  1892 
IF( IGNOR  . EO,  1)  GO  TO  1892 
IF ( RTU( IE ) .EQ. 3 ) GO  TO  1892 
Zl=ZC( IE) 

Z2«Zl 

NREPT=NREPT*1 

IF(RTU( IE)  .E0.1)  GO  TO  1539 
1810  PT( IE)a0.5*PT( IE)*ASD  *DNORM1(0.0> 

GO  TO  1539 

C***  INCREMENT  EVENT  COUNTER  AND  TEST  FOR  END  OF  DAY 
1892  IEJE  » I NVS ( IE) 

KK  * NPTR(IEIE) 
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IF (NPTR(JEIE)  , EO . 0)  SO  TO  1920 
I F ( NPTR(IEIE)  . LE . 200)  00  TO  1900 

C <K  * IE 

IE  * NPTR(IEIE) 

•««  IF  EVENT  is  NOT  SCHBDULED  WE  MUST  PRESERVE  CHOICE  OF  FOLLOWING 
EVENT  FROM  NX  *ND  PRB  FOR  CURRENT  EVENT 
DO  1895  I » 1,3 
NX(  I , IE)  « NX ( l , KK ) 

1895  PR8 ( l . I E ) = PRB(1,KKJ 
GO  TO  850 

C*««  DETERMINE  NEXT  EVENT  USING  NX-  AND  PRB 
1900  TEMj  z UNIFMi(o.O) 

<K  = 1 

IF  { TEMI , LT  . PRB ( 1 , l E 1)  GO  TO  1910 

<K  s ? 

IF  (TEMi  ,LT.PRB(1*  IEUPRB<2.  JEU  GO  TO  1910 
<K  s 3 

1910  IE  « NX(KK,  IE) 

30  TO  850 

C * * ° CALCULATE  A V e PHYS  WORKLOAD  AND  COMPgT  ANCg  fOR  EACM  CRgW  MgMBgR 

1920  CCC  a 0.0 
ETfcM  = 0.0 
TEMP  s IC 

DO  1930  I = 1/IC 

A Pw ( I ) a IDC(I)/CAL< I )*TW(I)/W0RK1 
IF  <TW(  I ) ,GT.  0.001)  gO  TO  1921 
TEMP  = TEMP  . l.o 
GO  TO  1922 

1921  ETEM  = ETEM  * PERF(J) 

1922  IF  (PCOM  ( 1 ).GE,CASP(I  ))  GO  TO  1930 

PCOMI 1 ) ■ ( C ASP ( I )-PCOM( I ) )«NU( I ) *0 . 0017*PC0M< I ) 

1930  CCC  » CCC* PCOM ( I ) 

CCC  = CCC/FLIC 
EjEm  = EtEm/tEmP 

c * • « performance  EFFICIENCY 

TEMl=(l,0-(uSHT/<wORKiaFLlC) ) ) M SEP /FLO AT { 1 $ I E ) ) 

WRITE  (6,1066)  NIGNP,NSUC1,NSUC2,NFALE 
WRjTe  (6,1063)  TEMI 

PEFF8 TgMl*  ( 1 0- ( FLOAT  ( NI GNR  ) /FLOA  T ( NSUC1*NSUC2*NFALE)) ) 

c 

c COMPUTE  EQUIP  AND  HUMAN  STATS  FOR  HURT 
ATEMbO  , 

BTfcMeO  . 

CTEMaO . 

DTEM»o . 

TEMIbIQMAX 
DO  1932  I » 1 , I QM AX 

IF  (CDT  (I)  * CUTU)  , GT  • 0.001)  GO  TO  1931 
TEmi  b TEMi  . 1.0 
GO  To  1932 

1931  CONTINUE 
ATEM.ATEM*  EPL  < I ) 

BTEMbBTEM  ♦ CART ( I ) 

CTEMpCtEm*  CDT(I) 

DTEMsDTEM*  CUT ( I ) 

1932  CONTINUE 
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AEPlsATEM/TEMl 

EP£FTsAEPI/CtEM*BtEM 

I F ( EPEFF ,LT , 0 t ) EPEFFTo, 

IF  (EPF.FF  , GT  , 17 ) EPEFTtl, 

EMT8F=DT£M/(0TEM*CTEMJ 

EMTTR=BTEM/FLOAT(NR) 

SRL=0.7*8,571*(ETEM-0,65}»( AEPL-0.9) 
SPL*0.7*8.57i«(PEFF-0,65)*(EPEFF-0.P) 

SGfcM*<  <SRL-0.7)**2*(SPL*0.7)**2)/2.0 
IFtSGEM.LT.O. ) SGEMPO, 

SGEM*SORT(SGEM) 

C 

IF(ND.EQ.NDMAX)  GO  TO  I960 
C***  CALCULATE  phys  incapacities 
NPI  • IPUYSN(FLIC/MPM 
IF  (NPI  ,EO , 0 ) GO  TO  i960 
DO  1950  J * 1,NPI 
J I * UNIFMKO  ;0)*FLIC 
P I ( 1 I ) « 0.2*UNlFMl(0,0)*0,75 
<K  * IPUYSN(PID) 

IF  (KK.EO.O)  P I ( I I ) =1 , 0 
IF  ikk.GE.1)  kk  * KK’l 
1950  p 1 2 i I I ) « KK 

CALCULATE  SAFETY  INDEX 
1960  CONTINUE 
THW,0.0 

DO  1970  1 = 1 , IC 
1970  THW*THW*TW<I> 

RR  s TEH/(9.«THW) 

CML  = CML / 1 9 , « THW ) 

SI  = 9 , /8 , * ( l , -HR  ) 

1980  CONTINUE 

TEM2sCN»,5 
DO  2260  JJal.IC 
WH( JJ)«2<.0-Z< JJ) 

IF(WH< JJ) ,LT. TEM2)  GO  TO  2240 
IF  ( D S ( J J ) ,GE;  MAXSL)  GO  TO  2240 
TEH1»MAXSL*DS( JJ) 

DS(JJ)*AMIN1(DS(JJ)*NH(JJ)-,5,MAXSL) 

TEMi*aMINi(WH(JJ)j  TEMl)- ,5 
IFITEMl  ,LE . 9.0)  GO  TO  2205 
2200  PAT(JJ)  ■ 0.0 
GO  To  2220 

2205  IFITEMl  , LT , 1,0)  GO  TO  2210 

FAT(JJ)  » FATIJJ)#! 1138, 0-19, 0*TEM1)/140. 0*0, 2*UN I FM1 1 0 . 0 ) ) 
GO  TO  2220 

2210  FAT(JJ)  » FAT(JJ)*(0.9-0.05*TEM1*0.2*UNIFM1(0.0)) 

2220  IF(FAT(JJ)  ,LT.  o.O)  FAT<JJ)  * 0.0 
JFIFATIJJ)  ,GT.  1.0)  F ATI JJ)  8 1,0 
ACAL(JJ)  ■ 0,0 
TEM1  = FATIJJ) 

JFITEMi  iGT.  0.9)  G0  TO  2225 
IFITEMl  , GT . 0.15)  GO  TO  2224 
RSLS(JJ)  = 53^333333  • FATIJJ) 

GO  TO  2260 

2224  HSLS(JJ)  » 14.666667»TEM1*5.8 
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GO  TO  2260 

2225  HSLS < JJ >* AM AX1< 310, 0»TEM1 -260. 0,0.0  ) 

GO  TO  2260 

2240  -ISLSJJJ)  s HSLS(JJ)  * WH(JJ) 
f A T ( J J ) ■ FBUILDCHSLH  JJ)  » 

2260  CONTINUE 

DO  2295  JJ*1,  !C 
< K » IPS(JJ) 

TEM2*IEC(KK)  /PWR(JJ) 

IF  (TEM2.GE.1 .0)  GO  TO  2285 
5XER  * 1,0 
GO  TO  2290 

2265  EXfcR  * <ZPC-TEM2)/<ZPC-1.0) 

2290  TEM1=( ACAU( JJ)/CAL( JJ) )«*2 

TfcMl  = PC(JJ)»PI(JJ)*U,0-(1.0-K1)*TEM1)*EXER«(1,0-C.1«FAT(JJ)  ) 

I F (TEM1.LT.  0.0)  TEM1  « 0,0 

IP  (TEM1,Gt.2,0)  TEMi  * 2.0 

2295  PCC(jj)*TEMi 

J F t M F ALE  .NE.  o)  SFD!Fr?SFDIFF/FLOAT(NFALE) 

AP ApAP A/FLO AT(NSUCl*NSUC2*NF ALE) 

CALL  0UTP2 

(F(ND.GE.NDMAX)  GO  TO  2030 
nDinD*! 

GO  TP  650 
2030  CALL  0UTP3 

I p ( ( I T AP  .EO.  1)  .AND.  (N  .GT.  %))  ENDFILE  10 
NPAYS=NDAYS*ND 
IF ( ITER.LT.N)  G0  TO  50 
CALL  0UTP4 
GO  TO  IQ 

3000  WRITE(6, 3001)  ITEM 

3001  F 0RMAT(26H1FATAL  I/O  ERROR  FOR  REC,-  1 8 ) 

STOP 

END 

OUTPi  SUBROUTINE  OUTPi 

SUBROUTINE  OUTPi 
INTEGER  P I 2 

COMMON/QCOM/PCOMC20) ,SC0M<20) . I PS < 20 > » I SS ( 20 ) , TPCOM< 20 > . TSCOM < 20 ) 
COMM0N/SEVENT/IETYP(5T0) ,TL(573) , ST (570) , EDCV < 3 , 570 ) . I PE ( 570 ) , 

1 TS(570)*TS1(570)»NX(3.570).RTUI570), IF  01  (570 > , !EFN<570 ) , NIF (570 ) 

2 IEDC(3,570)/PRB(3,570),N0SE,NEQRE,NEME,DI (9) 

COMMON/OPPl/  IAAt4) ,PC(20)#PACE(20) ,ASP<20) ,HSLS(20J ,PI<20) 

1 , P 1 2 ( 20 ) , I CE ( 20  ) 

COMMON/ 0PP2/  TW(20) ,TWP(20)#TWS(20),D3(20),APW<20),PCC(20) , 

1 CASP(20), I DC (20  > , NSUCl.NSUCJ.NFALE.NICNR# 

2 KONC(10),KONC1(10),  8 1 , CML , ND . I TER , NDA YS , MPCC C20 > , PAT <20  ) 

3 .STRM(2o> .CAL(2o)»PWR<2O)»CCALA20) »NU(2o) *PERP(2o) *NPRFM(<) 

4 , APA.SFDIFT,CLSDTA(1O,40) 
C0MM0N/0PP3/lC.rLIC,NREPT,HRSE,HRSR,HRSS,PEFF, 

1 MAXST.MAXSTE^USHTfNRj-NTE.NE.TIH.CMLMX,  ICML.SIDCMX,  IDCMX,  less 
COMM0N/OPP4/EPL(30),eDT(30),CART(30).CUT(30)4 

1 AEPL-EPEFF.EMTBryEMTTRjSRL.SPL.SGEM 
REAL  MaXST.IJTER  .JITER 

common/ i par am /apst, work i,work2,sleep,cn,maxsl,tf at, acp. 

1CALRY.PWRRT,K7,K1;BE>  AASP.KONUC)  ,K0NT(10,10)  ,K0N1(10)  , 

2 KONTl(lO.lO) ,SESTA<10) ,RELI<^)#N, IET, IND(7) ,NDMAX 
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REAL  I DC , KON,  KONC,  MPCC,  NU.  I MT AB ( 13 , 21 , 10 ) , KONl 
DIMENSION  OUTa(35),TEM3I20),DaLY(35,3o), I ITER(35,1CJ  »T3(i0) 
DIMENSION  TOUT a <l3, 10)  .NTjPEUC)  ,TDALY(13,10,JO>,TIITER<13,10,10> 
1 . aDaLY(10,30)  . IDALYK10.30)#  JlTfR(20,10),OUTB(20) 

DIMENSION  CLSNMEJ37)  ,eLSDini0.40)  .ClSDTR(10  4 40J 
DATA  CLSNME/  1HC  * 1M0 * 1HD  ,1HA  , 2HEY  • 4 HEURM  ,2HEC 


1 .3HECA  ,2MER  ,2HE0 

, 3HE I P 

.2HEI 

.4HERPT 

•5WELURM  , 

2 3HELP  .3HELA  /3HELR 

, 3HEL0 

,4HEIEP 

.3H6LI 

,5HELRPT  , 

S 5HEMURM  , 3HEMC  » 3MHMA 

,3HEMR 

, 3WEM0 

, 4HEME  I 

, 3MEM  J , 

4 5HEMRPT  ,4HMURM  ,2HMC 

5 2WMI  .4HMRPT  / 

DATA  CI/6H  / 

DO  380  I a 1 , 1 0 
390  NT  I PE ( I ) sO 

DO  390  1 = 1, IC 
K « I P S < I ) 

390  NTlPE(K>sNTlPE<K)n 

l P ( I NO ( 2 ) ,Eq.  0)  return 

WRI TE (6,9414  ) 

,2HMA 

, 2HMR 

,2WM0 

,3HMEI 

9414  FORMAT (17H1PRINT  OPTION  TW0/3H  CE,7 
1 4HP  ACE  , 6X  , 3H  ASP  , 5X?  4WHSLS  , 7X  , 2HP  I) 

X*  2HPC » 5X» 

4WPC0M , 5 x 

, 4HSCQM  » 5 x * 

DO  420  I * 1,4 
<K  * IAA<I) 

If  (KK.gQ.0)  GO  TO  420 

< = K + 1 

PC A s PC(K> 

PCOMA  s PCOM(K) 

SCOMA  * SCOM(K) 

PACEA  s PACE(K) 

ASPA  = ASP(K) 

MSLSa  s HSLS(K) 

P I A a P I ( K ) 

IP  (KK.EQ.i)  GO  TO  415 
DO  410  J a 2 » KK 

< s K ♦ 1 

PCA  * PCA*PC( K ) 

PCOMA  = PCOMA*PCOM(K) 

SCOMA  a SCOMA*SCOM<K J 
PACEA  s PACEA*PACE(KJ 
ASPA  s ASPA*ASP<K) 

HSLSa  8 HSLS A*HSLS ( K ) 

410  P 1 A s P I A *P I ( K ) 

TEM1  s KK 
PCA  * PCA/TEM1 
PCOMA  a PCOMA/TEM1 
SCOMA  a SCOMA/TEM1 
PACEA  a PACEA/TEM1 
ASPA  s ASPA/TEM1 
HSLSa  s HSLSA/TEMi 
P I A * PIA/TEM1 

415  HRITE  <6,9415)1 , PCA, RgOMA, SCOMA, PACEA, ASPA, HSLSA, PJA 
94i5  PORMAT( I3,7F9.3) 

420  CONTINUE 

WRITE  (6. 9416)  (l,PC(n,PCOM<I>.SCOM(I>,PACE<l),A$P<n,HSlSm, 

1 Pin),Pl2(I),FAT(I),8TRM<n,CAL(I).PWRm,ICE{n,IPS(n,I*SU>, 
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2 Isl.IC) 

9416  rORMAT(1Ho/3W  I C , 7X , 2HPC . 5X . 4HPC0M , 5X , 4HSCOM.5X , 4HP ACE , 6X , 3H ASP , 
15X,4HH$LS,7X,2HPI»3X,3HP12,6X,3HFATi5X,4H$TRM.6X,3MCA1.,6X,3HPWR, 
26N  IC6.6H  IPS>6H  JSS/(  l 3 , 7T9 . 3,  16, 2F9,3»F9,0,F9, 3,316) > 

DO  425  i»i,i? 

425  OUT  A ( I ) * 0.0 
DO  430  1=1, IC 
OUT  A { 1 ) : OUTA( 1)4PC(  I ) 

OUT  A < 2 > b 0UTA<2)*PC0M<  J) 

OUT  A ( 3)  » OUTA(  3)-*SC0M(  J ) 

OUT  A( 4 > s 0UTA(4}4PACI(J) 
out  a c 5 > ■ outac5)4Asp(I) 

OUT  A<  6 ) § 0UTA(6)*HSLS( J) 

OUT  A( 7)  9 OUT  A ( 7) ♦ P J ( J ) 

OUT  A ( B ) ■ 0UTA(8)*Ft0AT(Pl2C  ! ) > 

OUT  A ( 9 ) = OUTA  < 9 ) *F  ATI  I) 

0 (jT  A ( 1 0 > * OuTA<lO)*STRMiI  > 

OUTA C 11  > « 0UTaU1>*GAL<  I ) 

430  OUT  A ( 12)  8 OUTA( j2)*PMR( I) 

DO  435  1=1,12 

435  OUT  A < 1)  « OUT  A ( U/pLlC 

WR  l TE  C 6 . 9417 ) (OUT  A ( I ) , J *1, 12) 

9417  rORMAT<9HOAV5S/MAN/3X|7F9.3#F6.2.2F9,3.F9,O.F9,3) 

ToUTA(3,K)bTOUTa<3,KJ4THS(1 ) 

RETURN 
ENTRY  X X I N 

NRE  JsO 
CUTlaO.O 
CART  1 =o . 0 
CDTIbO.O 
DO  437  1=1,40 
DO  437  J»l, 10 
437  CUSDTl (J, I )«O.0 
DO  460  1=1,10 
DO  440  J«1 , 35 
440  1 l TER  < J , I )*0T0 

DO  460  KK  = l , 13 
DO  450  J«1.21 
450  1MT  AB<  KK , J , 1 ) . 0.0 
DO  46o  J«l,10 
460  T1 !TER(KK. J, I )*0 . 0 
RETURN 
ENTRY  0UTP2 
DO  2000  U?l> 13 
DO  1998  1=1,10 
1998  TOUTAt  J.DsOCO 
2000  OUTA ( J) =0  ■ 0 

do  2010  i«i. ie 

K«  J PS ( I > 

TEM3< !)«24.0rDS( !>-TW<  J) 

JMTABll,  I , ITER ) * IMTaB/1,  MTERl  ♦ PCCd) 
OUTA(l)=OUTA(l)*PCCn  > 

T0UTa(1.K)=T0UTa(1»K)*PCC( l ) 

I mT  AB ( 2 , I, ITER)  • IMTABC2,  I , I TgR  J 4 TWP(I) 
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0UTA(2)*0UTA(2)*TWP(  J) 
T0UTA(2,K)=T0UTAT2,K>*TWP(  I) 

I MT  AB ( 3 » I. ITER)  * l MTABl 3 » I. ITER)  ♦ 
0UTA(3)«0UTAc3)*TWS( J ) 

I MT  AB<  4 . I, ITER)  * IMTAB<4,  I,IT|R)  ♦ 
0UTA(4>»0UTA(4)*DSU  ) 
T0UTA(4,K)=T0UTAI4,K)*DS< I ) 

I MT  AB( 5 » I, ITER)  * JmT AB{ 5 * I » ITER)  ♦ 
0UTA(5)«0UTA(5)*TEM3U  ) 
T0UTA(5,K)BT0UTA<5,K)*TEM3U  > 

I MT  AB ( 6 , I. ITER)  * JMTAB<6»  I.ITBR)  ♦ 
0UTA(6)»0UTA(6)*rAT( I) 

TOUT  A <6>K ) =T0UT A (6,K  J +F AT ( I ) 

IMTABI7,  I, ITER)  * JMTABI7,  I . ITER)  ♦ 
0UTA(7)=0UTA(7)*Pl < J ) 
T0UTa(7,K)sT0UTaT7,K)*PU  I ) 

I MT  AB  ( 8 . l.ITER)  * JMTABI8,  I # I T BR ) ♦ 
OUTa<8)=OUTA(8)*APW<1) 
T0UTA(8,K)=T0UTA<8,KJ^ApW( I ) 

JMTAB(9,  I. ITER)  * JMTABI9,  | , I TER ) ♦ 
OutA(9)*OutA<9)*PCOM{|) 

TOUT  A ( 9,K  )sT0UTa(9,K  } ♦PCOM  < I ) 
IMTABI10,  l.ITER)  * IMT AB(  10#  I. ITER) 
OUTA(10)»OUTA(10)*CASP( I) 
TOUTa(10.K)=TOUTa(1O»K)*CaSP( I) 
OUTA(11)»OUTA(11)  + IDC1I  ) 
l MT  AB  ( 11 1 l.ITER)  a IMT  AB ( 11*  l.ITER) 
OUTA(12)=OUTA(12)*PERF( I) 

TOUTA(  u,K)*TOUTA(  u*K)*PERF(  I) 
IMTABC12,  l.ITER)  * JMTAB<12.  l.ITER) 
T OUT  A ( 12  * K ) * T0UTA(12,K)*NU( I > 

2010  0UTA(13)s0UTA(13)*NU(!) 


TWS( I) 
OSU) 

TEmS ( I ) 

r at  c i ) 

pim 

APW<  I ) 
RCOM( j ) 

* CASPU) 

* PERFU  ) 

« Num 


DO  2020  1*1. 13 
DO  2015  J=1.10 
K?NTlPE(J> 

If  (K.NE.  0)  TOUTAJI* J)*TOUTAll. J)/FlOAT(K) 
2015  CONTINUE 

OUT A < I ) *OUT A < I J/FLIC 
2020  CONTINUE 

DAUY(l,ND)sNSUCl 

DALYC2,ND)*NSUC2 


DALT(3.N0)sNFALE 
DaLY(4,N°)*NIGNR 
DALY(5.ND)=0UTA(2) 
DA(.Y(6*ND)«0UTA<3) 
DaI.Y(7.ND)  = 0UTA(4) 
DAUY(8.ND)s0UTA(5) 
DAl.Y(9.ND)*K0NC(l) 
DAUY « 10.ND)*KONCI2) 
DALY(11.ND)*K0NCI3) 
DaLY(12.ND)«0UTa<8) 
DA^Y ( 13#  ND ) «CML 

DAl.Y(i4,ND)«0UTAt9) 
DALY ( 15.ND)  e APA 
DALY<16.ND>*0UTAt6) 
DA^Y ( 1 7 , ND ) e OUT  A ( 10 ) 
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DALY<l8*ND)*0UTAt7> 

DALY(19,ND)=SI 

DAUY(20.ND)  * NPRFM { 3 ) 

DAj.Y  ( 21  # ND  ) * NPRFMI4) 

DALY(22»ND)»NREPT 
0 AL Y ( 23  * ND ) = HR8R 
DA|.Y(?4,Nn)  = HRSE 
DALY(25*ND)  o MAXST 
DAU Y ( 26  * ND ) = CMLMX 
DALY(27,ND)»PEFF 
DALY(28,ND)  « TEW 
DALY(29,ND)  = SFDIFF 
0ALY(30.ND)  = NSUC1  A NSUC2 
DALYJ31.ND)  * USHT 
DALY  (32. ND)  * ICSS 
! OH  AX  = NEQRF 
DO  2034  I ■ 1 » ! OM AX 
CUT  I «CUT I ♦ CUT ( J ) 

CDT I »CDT l ♦ CDT  < I > 

2034  Cart!=CArtI  ♦ CArt(!) 

NRElsNKEI  ♦ NR 
DO  2032  1=1,10 
ADALY ( I » ND ) o KONC ( I ) 

IDALYl  ( I , ND ) « K0NC1  C ! ) 

2032  CONTINUE 

DO  2025  J=l,10 
DO  2025  1=1,12 

2025  TDAUYC I , J,ND>pTOUTAf I , J) 

DO  Zq22  1*1,40 
DO  ?°22  J=l»9 

CLSDTR( J, I ) = CLSDTR( J,  I ) * clsdt A ( J,  I ) 

2022  ClSDTI ( J, J )=CLSDTI(Jrl  ) ♦ClSDTa(J.I) 

IF(IND<  6>  .Gt'JND)  RETURN 
1990  NPRFm(I)  = NPRFM(1)*N1GNR 
FNTE  = NPRFM(i) 

NiSl=NSuCl*NSuC2 
TEMi*HRSS*HRSR+HRSE 
T3(1)*FL0AT(NF ALE ) /FNTE »100.0 
T3(2)=FLOAT(NSUC1)/FNTE*100 ,0 
T3(3>*FLOAT(NSUC2»/FNTE»lOO .0 
T3(4)*FLOAT(NIGNR»/FNTE»100.0 
T3(5)*FLOAT(nREPT)/FNTE*100.0 

WRITE (6, 9984)  ND, ITER* (NPRFM( I) , I «1 , 4 ) , NREPT , NlSl , NF ALE , N I GNR , 

1 TEM1.HRSS.HRSR.MRSE.USHT, AP A# SFD I FT, 

1 <T3(l  >, I«l,5».Sl*C|,CMU,pEFF,TEMf 

2 HAXSTjMAXSTE.CMLMX. ICML.SIDCMX, IDCMX, ICSS 

3 , (KONClU  ).  1*1,10)  , IKONG(I)  , I*lilO) 

9984  F0RMAT(i5HiREP0RT  FOR  DAYI3,11M>  J TERAT l ON I3^19H  NO.  EVENTS  — TOT/ 
1LI4.12H  SCHEDULED J 4 ,9H  REPAJR14.12W  EMERGENCY  1 4 , 10H  REPEA1 
2SI4.12H  SUCCESSESI4»11H  F A I LURES  1 4 , 10H  IGN0RESI4/22H  HOURS 

3W0RKED--<.T0TALF6,lvllH  $CHE0UlGDF6 , 1 , 0H  REP A I RF6 . 1 . 7H  EM6R. 
4F6.1.10H  UNMANNEDF7.1,15H  AVG  PERf  ADE0F5.2.14H  AVG  FAIL  DIFF 
5 F6 , 3/  25H  PERCENTAGE  OF-  — FAILUREF5 ,1 , 15H  SUC( 

6,  1ST  TRYF5.1.15H  SU6C,  2ND  TRYF5.1.9M  I GN0REDF5 , 1 ,'9H  REPEATSFi 
7.1/14H  SAFETY  I NDEXF6 , 2 , 16 ( 1H  ),1A6,13H  MENTAL  LOAD 
8 F8.2.1QH  PERF  IFF  F9.‘3,6H  HA2,  F7.0.12H  / 
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913M  MAX,  STRESSF6.2.9H  ON  EVENTI4.18H  MAX,  MENTAL  L0ADF4.0* 

A9H  ON  EVENT  I 4«  20H  MAX.  CAL.  EXPENDEDF  9 . 0, 9H  ON  EVENT  I 4 » iON  SEA  SI 
BATE  I3/20H  CONS.  BAL.  (UNITS)  1017  ,/23H  CONS.  BAL.  (UNITS/HR)  1C 

C F7.0) 

WR I ^E  < 6 • 9985 ) 

998S  F0RMAT<i25H0MAN  TYPE  PHYSICAL  HOURS  WORKED  SLEPT  IDLE  FaTIGI 
IE  HEALTH  aVG  PHYS  COMPETENCE  ASPIRATION  PERFORM  NUMBER 
2 /4h  NO, ,10X,4HCAP,4X(12HPRIM,  2ND. 25X , 5H I NDEX , 2X , 0HWORKLOAI 

329X.4HCUM. ,4X,5HSUCC. ! 

DO  j.99 j_  I«i,K 

WRITE <6, 9987)  I , IPS M ) , PCC (I) . TWP (I) . TWS( I ) *DS U) , TEM3 (I) , FAT ( I) . 
IP  1 1 I ) , APW(  I ) ,PCOM< l ) , 0ASP< I ) . PERF ( I ) ,NUf )) 

9987  FORMAT (1H  .I3,!6,Fl0.3.2F7.2.F7«l,F6.1.F9.2,F8,2,Fl'\2,Fl2.3. 

1F12.2.  F9.2.F8.0) 

1991  CONTINUE 

WRITE (6. 9988)  ( OUT A (J) . I »1 . 10 > . OUT A ( 12 ) , OUT At 13 > 

9988  F0RMATC9H0AVERAGES/9H  PER  MANFll . 3 . 2F7 , 2, F? . 1 , F6 . 1 , F9 , 2 , F8t 2 , 

1  F10,2,Fl2.3,Fl2.2rF9,2,F10.2> 

WR  J TE  < 6 . 9989 ) 

9909  FORMAT(1HO//17HOAVERAGES  BY  TYPE/UH  NO  TYPE) 

DO  1995  Isl.io 
K«NTIPE(I ) 

IFJK.EQ.O)  GO  TO  1995 
WR  J TE ( 6 « 9990 ) K, 1 7 < TOUT  AX J, I ) » J*l«12) 

9990  FORMAT (215,  F 10 . 3, 2F7 . 2, F7 . 1, F6 . 1 ,F9 . 2, F8 , 2, FlO . 2.F12. 3, F12 . 2, 

1 F9.2.F8.2) 

1995  CONTINUE 

WRITE  (6, 1996)  ( I , C ART  ( J)  , CDT  (I ) , CUT  ( I ) ,EPL<  I ) , Hi,  IQMAX) 

1996  FORMAT (//1H0*25Xt32HDAJLY  EQUIPMENT  PERFORMANCE  DATA  // 

1 27H  IQ  CART  CDT  CUT  EPL  /U3.4F6.2)) 

WRITE (6. 1997)  AEPLTEPEFF,EMTBF,EMTTR,SRL,SPL,SGEM 

1997  FORMAT ( //6H  AEPLAF6 . t , 4x , 6HEPEFF* F6 . 2 , 4x. 6HEMTBF«F6 . 2 . 

1 4X,6HEMTTR»F6.2i4X,4HSRL»F6.2i4X,4HSPL«F6.2,4X,5HSGEM*F6.2) 

WRlTE(6.2l59) 

2159  FORMAT  (//1H0.30X/24HSUMMARY  BY  EVENT  CLASS  / 

1 05  H CLASS  TOT  PERF  HRS  PRIM  HRS  SfC  SUC1  SUC2  FAIL  IGNORI 
1 PERF  AD  AV  FAIL  DIFF  ) 

DO  4q  i«i,4o 

I F C CLSDT A < 1 , J ) .LE.0,0)  GO  TO  40 
00  30  J»2 , 9 

30  CLSDTA(J,I)»  CLSDTAIJ.D/CLSDTAU.I) 

WRITE (6, 2160)  I , CLSDTA (1 , I ) , CLSDTA (6, I ) , CLSDTA ( 7 • I ) , ClSDTA (2» I ) , 

1 CLSDTA(3. I ),CLSDTA(4)I ),CLSDTAI5, I ),CLSDTA(8, l ),CLSDTA(9, I ) 

2160  FORMAT ( I6,Fio.O,FlO#J,F9.2,3F6»2,F8.2,F9.2,Fi2.2) 

40  CONTINUE 

return 

ENTRY  0UTP3 

2030  WR I TEC  6 , 902  9)  ITERrNDMAX 

9029  F0RMAT<21H1REP0RT  FOR  I TER AT  I ONI  3 , 3H  0FI3.15H  DAY  MISSION-  — l 

2 127H  DAY  NUMBER  of  events  ave,  man  hours  spent 

3 *.>• END  OF  DAY  AVERAGES INDICE 

4/5X.125H  SUCl  SUC2  FAIL  IGNORE  PRIM,  SECOND  SLEEP  IDLE 

5 PHYS  LD  MEN  LD  COMP  APA  FAT,  ASP  MLTH  SF 

6 Y/ ) 

DO  2031  J>l,NOMAX 

2031  WRITE  (6,9030)  J,  ( DALY U , J ) . I ■!, I ) , ( DAL Y ( I . J > , l »12 . 19 > 
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9030  FORMAT  < I4,ix/3F5.0iP7i0'!4F7,2.24X.  F8 . 2,  F8 , 2,  F6 . 3,  F6 . 2. 

1  F6.2.F5.2.2F6.2) 

FQbNDM AX 
TOTsO.O 

DO  2055  I*1,NDMAX 
DO  2055  J*l,4 

tqt*tot*dalyij.i> 

2055  1 1 TER  t J, JTER)*I ITER (J* ITER )*DALY< J. I ) 

DO  2056  J-1,4 

2056  1 1 TER  < J, I TER  > » I ITER( J, I TER ) /TOT*lOO  , 0 

DO  205®  J*5«  8 
DO  2057  1*1*  NDMAX 

2057  I 1 TER  < J , l TER ) * I ITER(J»ITER)*DAI.Y(J.  I ) 

2058  I JTER( J, ITER)=I ITERtU, !TER)/FD 
DO  2061  1*1*10 

J I TER ( I . ITER ) f KONCt|>/KON(I)  *100.0 
ZTEM  » KONCin  > 

J I TER  ( I *10  * I TER  ) • ZTBM  /KONKl)  .100,0 

2061  CONTINUE 

DO  2060  J»12 . 19 
DO  2059  I*1,NDMAX 

2059  I I TER  C j, I TER)* 1 1 TER ( Jt I TER ) ♦DAL Y C J* I > 

2060  I JTER( J, ITER)*I ITER( J, ITER)/FD 

WRITE (6, 9031)  ( U TER (I , I TER ) , I *1 , 1 ) , (1  I TIR (] , I TER ) , 1 1 12 , 19 ) 

9031  FORMAT ( iH  /5X,22H-— PERCENT  OF  TOT AL---6X , 13HAVER A6E  PER  DAY7X , 

1 24h  18X . 13HAVERAGE  PER  DAY/ 

2 5X,3F5.1,F7.1,4r7.2,24X.  2F8 . 2 , ft> , 3 . F6 , 2 , F6 . 2 , F5 , 2 , 2F6  r 2 ) 

DO  3gl0  J*l.NDMAX 

WRITE (6, 30  40  ) ( ADALY 1 I » J) » I»1.1D) 

3040  F0RMAT(24H  CONS.  BAl.  (UNITS/HR)  10F7.0) 

3010  CONTINUE 

WRITE  (6.3050)  ( J1 TER  1 J , I TER > , J*1 , 10  ) 

3050  FORMAT ( 24H  PEBCENT  OF  ORIGINAL  10F7.3) 

DO  3020  J*1*NDMAX 

WRITE  ( 6,3030)  ( IDAlYK I .J) * 1*1,10  ) 

3030  F0RMaT(24H  CONS.  BAL.  (UNITS)  1017) 

3020  CONTINUE 

WRITE  (6,3050)  ( J I TER  1 J , I TER  ) , J*U  . 20  > 

WRITE(6. 90315) 

9g3i5  FORMAT  </i3iH  DAY  NUMBER  OF  EVENTS  AV£.  MAN  HOURS  SPENT 

1 AX  STRESS  MAX  MEN  ID  PERF  EFF  HAZARD  AVQ  FL  DIFF  NUMBER  UNl 
2ANNED  SEA  / 8X,38WREPAtP  EMER  REPT  REPAIR  EMERGENCY , 63X , 

3 5HSUCC. ,3X,5HH0URS,2X,6P  STATE) 

DO  2q62  J«1,NDMAX 

WRJTE (6, 90316)  J , < D AlY ( J . J ) » I «20 , 32 ) 

DO  2062  1*20,32 

2062  1 1 TER ( I , ITER  ) * !ITER!I,ITER)*DALY(!,J> 

90316  FORMATt I4,iX,F9.1*F61l,F6,l.F9.l»Fi3.i»Fi2.2,Fl2.2 
1 Fl2.3,F8.2,Fl3.3fF8,*,FlOt2,F3.1) 

DO  2063  1*20.29 

2063  l ITER ( 1 1 I TER ) ■ 1 1 TER  II » I TER ) /Fp 
UTiR  (32. ITER)  ■ UTBR  I32»IT6R)/FD 
1 1 TER ( 31 , ITER)  « 1 1 TER < 31 , 1 TER ) /FD 

90317  FORMAT < /9H0AVGS/DAYP#. 1, 2F6. 1.F8.1# FI J. 1 , F 12 , 2, F 12 . 2 . 

1 Fl2.3,F8.2,Fl3,3>F10f2fFl0.2,p5,l) 

WR I TE ( 6 , 90  3i7 ) < 1 1 TER  1 1 , ITER ) . I *2Q . 32) 
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WR I TE  < 6 , 9034  > 

9034  rORMATf  ///  30HQAVERAGES  BY  TYPE  OF  PERSONNEL/) 

WRJTE(6,9032) 

9032  FORMAT(  125Hq  TYPE  PHYSICAL  HOURS  WORKED  SLEPT  IDLE  F< 

1TIGUE  HEALTH  aVG  PHYS  COMPETENCE  ASPIRATION  PERFORf 

2 NUMBER/4H  NO , , 10X , 4HCAP , 4X . 12HPR I M . 2ND, 2JX , 5H I NDEX , 2X , 

3 8HW0RKL0AD,38X,4HCUM,,4X,5HSUCC, ) 

DO  2065  Isi.NDMAX 

DO  2065  J-1,10 
K?NTIPE(J) 

IF(K.EO.O)  GO  TO  2065 

9033  FORMAT  { iH  I 3,  I 6 . F 10 . 3 , 2F7 . 2 , F-7, 1 , F6 . 1 . F9 , 2 . F8 . 2 , F 10 . 2 , Fl2 . 31 
1 F12,2,10X,F9C-2,F8.2) 

DO  2q6A  KK*i,i2 

2064  T jiTERIKK, j,lTER)*Tt!TER(KK. J. ITER) *TDALY(KK. J,  J) 

2065  CONTINUE 

DO  2067  J=l,10 
KsNTIPE(J) 

IFIK.EQ.O)  GO  TO  2067 
DO  2o&6  I=i,li 

2066  TI ITERC I . J, JTER)«TI ITERX I # J, ITERJ/FD 
WRJTE(6.999l)K, J, (TI ITER* I , J. I TER ) . J *1, 12) 

9991  FORMAT (215  , FlO . 3. 2F?» 2 . F7 . 1 , F6 . 1 , F9 . 2 , F8 . 2 . F10 . 2 , F 12 . 3 , F12 . 2 . 

1 10X»F9.2,F8.2) 

2067  CONTINUE 
2070  CONTINUE 

T3(1)*CUTI/(CUTI*C0T1) 

T3(2)=CARTI/FL0AT(NREJ) 

RfcMTB*REMTB  ♦ T3(l) 

REMTRxREMTR  * T 3 ( 2 ) 

IF ( I ND (7 ) . EQ. 0 ) RETURN 
WR I TE ( 6 . 9275 ) 

9275  FORMAT(30H0AVERAGES  PgR  DAY  FOR  EACH  MAN/) 

DO  2o  72  l ■ 1 » 12 
2072  OUT A t l ) *0  • 0 

DO  2080  1*1,  IC 
DO  2075  J*1 , 12 

IMT AB ( J # I » I TEB  > • IMT  AB ( J , I , I TER ) /FD 
2075  OUTA(  J)-OUTa(  J)MMTaB<J,  I , ITER) 

2080  WR  I TE ( 6 , 9991 ) I . IPS ( t ) , ( I MTAB < J, I , I TER) . J»1 . 12) 

DO  20*2  1*1.12 
2082  OUT A{ I >«0UTA(1)/FLIC 

WRITE (6,9996 J (OUTA( I), 1*1,12) 

9996  FORMAT<10HOAVERAGES 

1 FlO»3,2F7.2,F7.1,F6.1.F9.2,F8.2,Fl0.2,Fl2.3iFi2.2. 

1 10X,F9.2,F8.2) 

WR  l TE ( 6 , 9997 ) T3(l),  T3*2> 

9997  FORMAT(//7HOEMTBF*  F8'.’3#  5X,  6HEHTTRB  F8.3) 

WR  J TE<  6 . 2159) 

DO  2084  1-1,40 

I F ( CLSDTI (i, 1) ,LE.  0,0)  GO  TO  2084 
00  2063  J*2, 9 

208,  CLSDTI ( J, I )-  CLSDTJ(J.J)  / CLSDT] (1,1) 

WR  ITE( 6,2160)  I , CLSDT I < 1, I ) , CLSDT l < 6 , I ) , CLSDT I < 7 , I ) , CLS DT I < 2» I ) , 

1 Ci  SDTI  (3.  I ),ClSDT1(4»1)iCL|DTU5,  D.CtSDTI  (8, 1 ), C|.SDTI  (9,1) 

2084  CONTINUE 
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RETURN 
ENtRY  0utP4 
ITER*  J ter 

WR  J TE ( 6 i 9555 ) ITER, SDMAX 

9555  FORMAT ( 16H1RUN  SUMMARY  F0RI3.14H  ITERATIONS  0FI3,12R-DAY  MISSION/ 

1  127h  ITER  NUMBER  OF  EVENTS  AVE.  HaN  h°URS  SPENT 

1 END  Of  DAY  AVERAGES — - INDICES 

2/5X,i25H  SUCi  SUC2  FAIL  IGNORE  PRIM,  SECOND  SLEEP  IDLE 
3 PHYS  LD  MEN  LD  COMP  APA  FAT.  ASP  HLTH  SF1 

4Y/5X.22H---PERCENT  OP  TOTAL ---6X,15HAV|R AGE  PER  DAY7X , 

5 24H  18X , ijHAVERAGE  PER  DAY) 

DO  2105  I »1 .32 
2105  OUTA ( I ) >0 

DO  2110  1=1,  ITER 

WRITE (6, 9556)  1 , 1 1 1 T8R ( J , I ) , J = 1 , 8 ) , ( 1 1 TER ( J, I ) , J*l2, 19  ) 

9556  FORMAT (IX, I 4 , 3F5. 1*F7 ,1, 4F7.2.24X,  2F8 . 2 , F6 . 3 . F6 . 2 , F6 , 2 , F5 . 2 » 

12F6.2) 

DO  2100  J" 1 » 32 

2108  OUTA(J)iOUTA(J)*IITER(J*l) 

DO  2109  J»1 , 10 

OUTB c .)  « OUTB(J)  ♦ j|TER(j,D 

OUTB  (J*10>  = OUTB<J*|0)  * J I TER  C J-10  ,D 

2109  CONTINUE 

2110  CONTINUE 

DO  2115  J»l,32 

2115  OUTAI J)iOUTA( J)/FLJT|R 

WRITE (6, 9557)  ( OUT  a 1 1 > , 1 »1 , 8 ) , l OUT A ( I > , 1*12*19) 

9557  FORMAT  (19HOAVERAGES/ITERATJON/ 

1 5X.3F5.1,  5F7.2.24X.  F8 . 2 , F 8 . 2-F6 , 3 , F6 . 2 , F6 . 2 # F5 . 2 * 

2 2F6.2) 

DO  2150  1*1,  ITER 

WRITE  (6,3070) I. « JITER< J. I). JRlalO) 

3070  FORMAT ( 6H  ITER  I2/44W  CONS,  BAL.  (UNITS/HR)  BeRCENT  OF  ORIGINAL 
1 10P7.3) 

WRITE  (6,3060  ) I,  < J I TERl  J , I ) , J*H  , 20  ) 

3060  FORMAT ( 6H  ITER  I2,44H  CONS,  BAL.  (UNITS)  PERCENT  OF  ORIGINAL 
1 10P7.3) 

2 1 5 o CONTINUE 

WR  J TE ( 6 , 3080)  ( OUT  B ( I) , 1*1,10) 

3080  F ORMA T ( 37H  AVERAGE  CONSUMABLE  USAGE  (UNITS/HR)  ,16X.10F7.2) 

WRITE  (6,3090  ) (OUTBID,  1*11, 201 
3090  FORMAT { 34W  AVERAGE  CONSUMABLE  USAGE  (UNITS)  ,19X,10F7.2) 

WR  J TE ( 6 , 9115 ) 

9115  FORMAT  <//i3lH  ITER  NUMBER  OF  EVENTS  AVE.  MAN  HOURS  SPENT  f 

1AX  STRESS  MAX  MEN  LD  PERF  EFF  HAZARD  AVQ  PL  DIFF  NUMBER  UN 

2WANNED  SEA  / 8X,30HREPAlR  EMER  REPT  REPAIR  EMERGENCY, 63X, 

3 5HSUCC. ,5X,5HH0URS,6H  STATE) 

WRlTE(6*903l6)  ( I , ( J I TER  < J , I ) » J*2o , 32) , 1*1 , I TER ) 

WRJ  TE ( 6»  90318 ) ( OUT  A H ) , 1*20 * 327 

90318  FORM AT (19H0 AVER AGES /(TER AT  I ON/ 

1 aX,3F6.1,F9.1,Fl3a;Pl2.2,ri2.2,ri2.3,F8,2,H3.3,F8i2»ri0.2»r5.i: 
DO  2120  1=1,11 
DO  2120  J>1,10 
2120  TOUTA< I , J ) = 0.0 

9120  FORMAT (///30H0AVERAGE9  BY  TYPE  OF  PERSONNEL/) 

WRjTE(6,9120) 
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WR!TE<6.9558> 

9558  FORMAT  ( 125HO  TYPE  PHYSICAL  HOURS  WORKED  SLEPT  IDLE  F 

1TIGUE  HEALTH  AVG  PHYS  COMPETENCE  ASPIRATION  PERFORM 

2 /14X  , 4HCAP.4X.12HPRJM.  2ND.25X.5HINDEX.2X, 

3 8HWORKLOAD.30X.4HCUM,  ) 

DO  2125  1*1, ITER 

DO  2124  J*l,10 

I r C NT l PE  < J ) . eo . 0 » GO  TO  2124 
DO  2123  K=l, 11 

2123  TOUTA<K,J)*TOUTA<K,J)*TlITER(K, J, I) 

2124  CONTINUE 

2125  CONTINUE 

DO  2140  Jol.10 

l F ( NT  I PE ( J ) , EQ  . 0>  GO  TO  2140 
DO  2130  1*1,11 

2130  TOUTA(I.J)  * TOUT A ( I , U ) /FL I TER 

WRITER  6. 9993)  J , < TOUT  A < I , J J , J » 1 , 11 ) 

999  3 FORMAT (5X,  15,  FI  0 . 3 , 2F7 . 2 , F7 , 1, F6 , 1 , F9 . 2 , FB* 2 , F10 . 2 , F12 .3 , F12 . 2 , 
1 F9.2.F8.2) 

2140  CONTINUE 

WR  J TE ( 6 » 2139 ) 

DO  2144  1*1,40 

IFIClSDTRIl. J ) .LE.O.OJ  GO  TO  2144 
DO  2143  J*2 , 9 

2143  CLSDTR(J.l)  * CLSDTRIJ.J)  / CLSOTR {1 . I J 

WRITE (6. 2160)  I , CLSDTR ( 1 , I ) , CL^DTR ( 6 , I ) , ClSDTR ( 7 , I ) , ClSDTR (2)1), 

1  CLSDTR ( 3.  I ) , CLSDTR ( 4 f I ) , CLSDTRjt  5#  l ) . CLSDTR < | , J } , CLSDTR ( 9 , 1 ) 

2144  CONTINUE 

T31 1 ) = OUTA(1)/(OUTA<1)*OUTA(27*OUTA<3)  > • < OUTA  ( 5)  *OUT  A ( 6 ) ) 

T 3 < 2 ) * 0UTA(2)*I0UTA15)*0UTA(6J) 

T3<  3)  * T3( 1) /( T3( 1)  4 T3<  2) ) 

T3  C 4 ) * REMTB 
T3 1 5 ) * REMTR 

T 3 ( 6 ) * T3 ( 4 ) / ( T3I 4 ) 4 T3<5)) 

T3(7)  = S0RT(0,5*(T3t3)»*2  ♦ T3I6)*»2>) 

WR I TE ( 6 » 9140 ) (T3(I),I*1,7) 

9140  FORMAT (1H0,9WHMTBF  A ,F8 . 3 ,5X ,8HHMTTR  «,F8,3, 

1 5X , 9HH AV  A I L *.F 8,3/ 

2 IX , 9HEMTBF  « , F8 . 3 , 9X , 8HEMTTR  « , F8 . 3 , 5X , 8HEAVA I L «,F8,3/ 

3 1X,9MSYSAVAIL«»F8.3) 

return 

END 

CrBLD  FUNCTION  FBUKD 

FUNCTION  FBUILD(H) 

HSLS*H 

TEM1*0.2»UNIFM1(0.0 j 
IF(HSlS,LT.8.0)  GO  To  20 
I F (HSLS  ,LT  . 19 . 0 ) GO  TO  10 
FBUILD«IHSLS^229.0)/810,0*TEM1 
GO  TO  5000 

10  FBUlLDf (15,0*HSLS-109,0)/220,0*TEM1 
GO  TO  5000 

C// /////////// //////////////// 

20  FBUILO  * 0.01875  • HSLS  - 0.1  * TEM1 
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5000 

JFIFBUILD  .GEV 
FBUllD  * 0.0 

0,0) 

GO  TO  5002 

GO  TO  5555 

5002 

IFIF8U ILD  .GT.1 

1,0) 

PBUILD  » 1.0 

5555 

RETURN 

ENO 

CIPUY 

FUNCTION  IPUY9M 

FUNCTION  IPUtSN(PAR) 

TE3T»EXPUPaR> 

KfO 

y«unifmko.o) 

1000  I r c Y . LE . TEST ) GO  TO  5000 
Kf  K*1 

ypy*unifmko:o) 

GO  TO  1000 
5000  JPUYSN=K 
RETURN 
END 

cpscap  subroutine  pscap 

SUBROUTINE  PSCAP ( I aa,pcdum,pscom> 

DIMENSION  I AAC4>,PCDUM<0)  ,PSCOM*40)  «TEM(3)  ,L(3) , LL < 3T , DATR ( 3 > 
DATA  DATR/O. 95, 0.75, 0,60/ 

NN*1 

DO  350  I *1 , 4 , 3 
DO  340  J*1.4 
Ll* l AA ( J ) 

T6M1*L1 
<1  = 1 

DO  110  K*1  * 3 

TEM(K)  = TEM1*PCDUM<KU 

L (K ) sTEM (K  ) 

<i=Kin 

110  ll=Ll-L<K) 

|f(Ll*EQ,0)Go  TO  275 
KI=J 

DO  130  K*l,3 

TEM(K)*TEM(K) -FLOAT (L<K) ) 

IFITEM(K) .Lt?( ,5) ) GO  TO  130 
L ( K ) »L ( K ) *1 
11*11-1 

I F ( Ll  - EO . 0 ) GO  TO  275 
130  CONTINUE 

DO  135  K»1 , 3 
135  LUK>*K 

00  150  K«1 , 2 
KK*3-K 

00  140  11*1, KK 

IF  < TEM  < 1 1 >,GE'.TEMUl*t>)GO  TO  140 
TEMMTEH  (II) 

LTlLLUI) 

TEM ( I ! > « T E M ( 1 1 *1 J 
TEmM  I*1)*TEmP 
ILItlliLLMUl) 

LL  C 1 1 ♦ 1 > «L T 
140  CONTINUE 
150  CONTINUE 
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00  160  K t»l  i 3 
<K=Ll(K> 

L<KK)sL(KK  Wi 

ll'Ll-1 

1F(L1-EQ.O)GO  to  275 
continue 

<K=LL(1) 

L ( KK  J =L (KK  ) +L 1 
275  00  310  K*l»3 
KKSL(K> 

JF(KK.EG,0>GO  TO  310 
TEMP  = DATR(K) 

DO  305  N*l,KK 

PSC0M(NN)=AMIN1( .99,TEMP*DNORMl(0.O)*O.O3) 

305  NN*NN*1 
310  CONTINUE 
340  CONTINUE 
350  NN=21 
return 

END 

cinput  subroutine  input 

SUBROUTINE  I NPUT ( I TER  fK ASE ) 

COMM0N/PRSneL/wT*S!GW?,PPFQ,PPmQ,PPUQ»SPFQ»SPMQ,SPUQ, 
1mPJ,PID,ZPC,PTT(10»10)*MEN(10.4J,NDS, IDS (6, 20) 

COMMON/ I PAR  AM/ APSTyW0RKl,W0RK2, SLEEP, CN,MAxSL,TFAT,ACP, 
1CALRT,PWRRT,K7,K1,BE,AASP,KON(1C),KONT(10,10) ,K0N1(10)  , 

2 KONTK10,10>,SESTA<10>|RELI(4>  ,N,  IET,  IND(7)4NDMAX 
COMMON/EQREVNT/  lDF(3o>,RELHt3o),DTR(57Q>,TUK3o)»  I RE  < 3o  > 
COMMON/EEMER/ARTdO),  ASDEU0>»DTE(10)»  JESSE  (10)  , NREOE  (10,10), 

1  lODmE(IO), IRCE(10,10) , JRCE11 10.10) ,TSE(10) ,TS|1(10), I HE (10) . 

1 JECE(IO.IO) ,DTBE<10»|NDBE(10) 

COMMON/E  TYPE/ ADUR.ASO*  I ESS,  NREQ1 10)  , LOOM  ,KE , l NT , I RC(  10 ) , IRCK10)  , 
i i h , iec(io),ntor, i or ( 6 ) • i class 

COMMON/SEVENT/IETYP( 570) , TL ( 570 J , ST ( 570 ) , EDCV ( 3 . 57Q > , l PE( 570 ) , 

1 TS(570) ,TS1( 570) ,NX{ 3,570 ) ,RTU< 570) ,!F0 1(570 ) ,IIEN(57o), NIF< 570) 

2 JEDC(3,570),PRB<3,57O),NOSE,NEORE,NEME,DJ (9) 

DIMENSION  FPU  111 >, IPl ( 161 ),FP2( 248 ),IP2< 9 );FP3(22C0), IP312200), 
1 FP4(3660) , IP4( 3800) ,FP5< 600) . I P5( 2000 ) , DUMY( 12 ) » IDES (121 
DIMENSION  PTtTClOv 10 S 
DIMENSION  ADUR JO( 55) 

EQUIVALENCE! ADURIO,ADUR) 

EQUIVALENCE  (HT ,PP 1) , (MEN , I Pi) , l APST ,FP2) , (N  ,|P2), 

1 (FP3.FP4) ,(FP3,FR5) , ( IP3, I P 4 ) ,1 JP3, I P 5 ) , ( I P 3 , I G9G) , t FP3, GBG) 
INTEGER  TS,TSl,RTU,TSB, TSEl,TSR,TSRl 

REAL  MPI ,MAXSL,K7#K1, IEC.LODM. IH, IRC,K0N,K0N1,K0NT»K0NT1 
REAL  IECE, IME, IRCE.LODME 
namelist/persnl/nfpi,fpi,njpi, IPl 
NAMELlST/PARAM/NPP2,rP2,NIP2, IP8 
NAMELIST/SCHFVT/NFP3.FP3.NIP3, IP3 
NAMELIST/EOREVT/NFP4,FP4,NIP4, IP4 
NAMELIST/EMREVT/NFP5,FP5,NIP5, IP5 
NAMELIST/TYPE/  NFP5,FP5,NIP5, IP5 
| ERR  * o 

I F ( ITER  ,GT,  1)  GO  TO  225 
100  NFP2  S o 
NIP2  ■ 0 
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RE  AO  ( 5 » PAR AM ) 

JFHNFP2,NE.248>,0R,fNIP2.NE,9>)  QO  TO  9010 

101  WRJTE<6,8100>  ( FP2 ( 1 ) , I *1 , 248 ) ; ( I P2I I) , I «1 , 9 ) 

8100  TORMaT  (7H1APST  *F13 . 2 » 8H  WORKlipH , 1 , 6H  WORKZsFH  . 1 , 8h  SlEEP*F 
114 1 1 * 8H  CN  iFl4 . 1 * 8H  HAXSL »F 14 . 1/7W0TF AT  *F13.2»8H  ACP  »F14, 

22, 8H  CALRYbFi4.0T8M  PWRRT»Fl4, 1 , 8M  K7  ■Fl4,2,8H  Kl  *Fl4,2/ 
37HO0E  *F13,2,8H  AASP*Fl4,2// 

314hOKON(1-10)  «10F9 « 0/15H  KONTU-lO)  * /IQ  (1<X , 10F9 . 0/ ) , 

4 /14HOkON1(1-10)  • 10F9.0/  15H  KONT1<1-10|  • /ICi 14X . 10F9 , 0/) , 

5 13H  SESTA(0-09J*10F5.2/11HORELI (1-4)*4F8.2/ 

6 3H0N« 1 5 i 6H  1ETp!5,1JH  l ND ( 1-7 ) *7  1 3 > 

200  ! F ( K ASfc  ,LE.  1)  60  TO  201 

DO  205  1*1.10 

DO  205  J»l,10 
PTTM  . J)  ■ PTTT ( I , J) 

205  CONTINUE 

201  NFPl  a 0 
N I P 1 a 0 

READ  (5.PERSNL) 

IF  ( (NFP^NE.  ml  .OR.  (NJPi.NE.i6i)  ) 00  TO  9020 
I F { K ASE  ,NE.  1)  GO  TO  209 
DO  208  1*1,10 
DO  208  J«1 , 10 
PTTT(I'J)  » PTT(pJ) 

208  CONTINUE 

209  DO  220  1,1,10 
DO  210  J*2,10 

PTT(J»1)*PTT(J,I)*PTT<J-1,I> 

210  CONTINUE 
220  CONTINUE 

225  IF ( IND( 1 ) .EO.  0 .OR,  ITER  .GT,  l>  GO  TO  299 

WRITE  (6*8200)  CFP1C  J ) 1 1 * 1,111), ( I PI ( I > • 1 • 1,161) 

8200  FORMAT  (7H1WT  «F7,1»8H  S I GWT*F7 . 1/7H  PPFO  ■F7.2.8R  PPMQ  *F7,2, 
18H  pPUQ  »F7,2/7H  SPFq  *F7.2,8H  SPMQ  iF7,2,8H  SPUO  aF7,2/7H  MP I 
2 =F  7 , 2 > 8H  PID  *F7,1#8H  ZPC  *F7 . 2/14H0P TT(1-10 . 1 > »10F9.2,19H 
3PTTU-10.2)  *10F5.2/14H  PTT(1-10,3I  «10F5.2,l5H  PTTll-10.4)  «10F5 

4.2/14H  PTT  C 1-10 , 5 > *10F5.2,15H  PTT ( 1-10 . 6 ) 910F9.2/J4H  PTT(1-10,7 
5)  »10F5.2,15m  PTT(1-10,8)  «10F9,2/14H  PTTll-lO#*)  »10F5.2*15H  PT 

6T{i-i0»10)*10F5.2//13H0MEN(l-10U)«10l4,14H  M8N  ( 1-10 , 2 ) *10 1 4/13H 
7MEN(l-10.3)slOl4,14H  MEN< 1-10 , 4 ) ,10  1 4/15HON0 . OF  SHIFTS*, 16/, 

8 13H  | DS< 1-6 . l)«,6I4,9X,l2HIDSU-6,  2 ) a , 6 1 4 , 9X , 12H I DS ( 1-6 , 3)*6J4/ 
913h  JDS ( 1-6 , 4)3,614i9X,12MIDS(1-6,  5 ) s , 6 14 , 9X, 12H  IDS( 1-6 , 6)*6I4/ 
A 13H  l DS ( 1-6 , 7)*,6I4.9Xli2HI0s(l-6,  8 )i , 6! 4, 9X, 12H IDg( 1-6,  9 ) «6 1 4/ 
B13H  IDS(1-6,10)*,6I4. 9X , 12H l DS < 1-6 , 11 > ■ . 6 1 4 , 5X, 12H l DS < 1-6 , 12 ) *6 1 4/ 
C13H  lDS(l-6,l3)*.6I4,9X,l2HlDS(l-6,14)a,6l4.5X,12HID9(l-6,l9)«6j4/ 
D13H  IDS(i-6,l6)s,6l4,9X,l2HlDS(l«6, 17)1,614, 9X,12HID9(1-6,1B)*AI4/ 
E13H  IDS <1-6, 19)S6I4,5X,12HID$<1-6,20>»6I4) 

299  IFflTER.EO.l)  60  TO  300 
REWIND  10 

READ  (10)  NFP4,N!P4,NBCRE,  (FP4U) , lai.NFPA)  ,(!P4(!  > » l»l,N!P4) 

GO  TO  301 

300  NFP4  « 0 
NIP4  * 0 

READ  ( 5, EQREVT ) 

NEQR6=IP4(1) 

1 F ( N .LE,  1)  GO  TO  301 
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REWIND  10 

WRITE  1 10)  NFP4,NIP4,NEQRE» (FP4  ( l ) , I *1 . NFP4  ) , ( I P4  ( I >,  I *1 , N I P4  ) 
301  <K  * 2 
MM  * 1 

I F ( I ND ( 1 ) .NE,  o .AND.  ITER  ,l.E,  U WRITE  (6.8329) 

8329  FORMAT (1H1.90X. 27 HEQUtPMENT  REPAIR  EVENT  DATA/ 

1 111H  IQ  DESCRIPTION 

2 TSR  * TSR1  RELH  TU I I RE  / 

3 98H  TYPE  NX  ( 1-3  > PRB(l-3)  R T U JEDCtlO)  I EDCV  f 1-3 ) 

2 IPE  IFOI  IEFN  DTR) 

DO  35q  I » l.NEQRE 
DO  3Q5  Jsl.12 
IDESt J)4lP4(KK) 

305  KK»KK+1 

TSR  « IP4  ( KK ) 

TSRl  = I P 4 <K«  ♦ 1) 

!REx«IP4(KK*2) 
tRE(  l > = IREX 
I EFNX* I P4 ( KK*3 1 
KK  «KK  + 3 

REt,H(  I )«FP4  (MM) 

TU  1 { I ) =FP4 ( MM«1 ) 

C DTR ( 1)sFP4(MM*2) 

MM=MM*2 

Jb200*(I-1)*12 

ITEMsJ 

DO  310  JJ*1 . IREX 
J = J*1 
TS  C J)*TSR 
TSl( J)aTSRl 

lETYP(J)  * I P4  (KK  a 1) 

IPE(J)  a I P 4 (KK  4 2) 

IF( JPE( J) .NE.O)  !PE( J ) * JPE( J )♦ I TEM 
NX  (l.J)  • IP4  (KK  * 3) 

NX  (2.J)  a IP4  (KK  * 4) 

NX ( 3 . J ) a IP4  (KK  * 5) 

NX(1, J)aNX(l, Jl^lTEM 
NX(2.J)*NX(2iJ)*lT^M 
NX(3. J)aNX(3. J)4lTEM 
RTU(J)  = J P 4 (KK  * 6) 

IFQKJ)  5 1P4  (KK  ♦ 7) 

IEFN ( J ) a J EFNX 
DTR(J)aFP4(MM) 

PRB(l.J)  a FP4  (MM  * 1> 

PRB ( 2 * J ) a FP4  (MM  * 2) 

PRB ( 3 . J ) * FP4  (MM  ♦ 3) 

IEDC(1. J)aFp4(MM*4) 

IEDC(2,J)aFP4(MH*5> 

IEDC  C 3 , J)aFp4(MM46) 

EDCV(1. J)aFP4(MM47> 

EDCV(2. J)=FP4(MM*8) 

EDCV(3, J)aFP4(MM49) 

ST ( J ) a 0.0 
TL ( J ) a 24.0 
KK«KK*7 
MM4MM*10 
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310  CONTINUE 

JJb  J 

KK  * KK  ♦ 1 
C MM  a MM  ♦ 1 

I uj-irEx*i 

IF  ( 1 ND  ( 1 ) .NE,  0 /AND . ITER  ,LE,  1)  WR I TB (6, 8330 ) 

1 I , IDES,  TSR.TSRl.RELMU  ),  TUI  (I  )i  l REX , ( I ETYK  J ) , ( NXJ  K , J , , K*l , 3 ) , 

2 (PR8<K, J) ,K»1,3)>RTUI J) .< IEDCCK, J) 

3 (EDCVIK, J) ,KPl,3)rlPB< J). IFO! (J), IBFNI Jl.DTRl J), J»I t, JJ1 
8330  r0RMAT(lH0/I3,2X.12A6» 13. 16.F10-4.F7.2. 15/ 

1 C 1H  . 13. IX, t3.2I4r3F572.2l2.  2 1 3 . IX , 3F10 . 3 . 13. 1 6 , 1 11 . F5 .2 ) ) 

350  CONTINUE 

399  IFIITER.EO.il  GO  TO  400 
NFR5«NEME*3 

NJP5*NEME*47 

READ (10)  (FP5C 1 ), I»t,NFP5). ( JP5< I ) . I*1.NJP5| 

GO  TO  401 

400  NFP5  r 0 
NIP5  « 0 

READ  (5.EMREVT) 

NEME  « NFP5/3 
NFP3f N I P5/58 

JF< (NFP5,NE.NEME*3) ,OR. tN!P5,NE-NFP3*58> > GO  TO  9040 
IF(N.GT.i)  WRlTE(l0l  (FP5(l).I*iiNFP5l,(lP5ti),|Bi,NIP5| 

401  «K  » 1 
MM  ■ 1 

IF  ( I No ( l ) ,NE.  0 .AND.  ITER  .IE , l)  WR I TE 1 6, 8429 1 
8429  F0RMaT(ih1.9BX.20HEMERGENCY  EVENT  DAT  A/18H  K IDENTIFIER/ 

1 23H  NDBE  ART  ASDB  DTE , 58X » 10H I RCB ( 1- 10 ) . 10X , 3HTSE . 3X , 5HL0DH: 

2 2*,5hIESSE  / 

l/llx!llHNREQE(l-10),8X,5lX.12HIRCEl  (1*10),8X,4HTSE1.4X,3HIHE/ 

3 HX.lOHIECEd-lO)  /1H  1 
DO  450  I » 1 # NEME 

ARTII  ) « FP5(KK> 

ASDE ( I ) 4 FP51KK  ♦ II 
DtE(  I)  * Fp5(«K  ♦ 2J 
DO  405  J«1 >12 
I DEs ( J ) ■ I P5 ( MM  1 
405  MM-MM.-1 

JESSEd  >?IP5(MM) 

DO  410  J *1.10 
MM  * MM  * 1 

410  NREOE  < J. I ) ■ IP5<MMJ 
MM»MM*1 

LODMEI  I ) m IPj (MM  1 
DO  420  J«1 . 10 
MM  8 MM  ♦ 1 

420  IRCE  (J.l)  * TP5IMM) 

MM  « MM  « 1 

TSE  ( I ) * IP5  (MM) 

DO  425  J«l,10 
MM  4 MM  ♦ 1 

425  JRCEirj. I ) = 1P5  tMM 1 
TSE1(I)  • IP5(MM  * 1 ) 

I HE ( I ) ■ I P5  (MM  * 21 
MM  ■ MM  ♦ 3 
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DO  430  J »1 » 10 
IECE(J,I)  « !P5  ( Mm ) 

430  MM  * MM  * 1 

NDBE ( I ) * I P 5 (MM) 

MM  * MM  ♦ i 
KK  « KK  ♦ 3 
1 ET YP ( I ♦ 560 ) *-l 
ST ( I *560 ) * 0, 

TL(I*560)  * 24  ,o 
T S C I *560 ) * TSE(I) 

TSin*560)=  TSEl(I) 

RT|J(I«560>sl 
|F0!( I *560 ) =1 
I EFN  ( I *560 ) *0 
N I F ( I *560 ) *1 
IEDC(1» I *560 ) *0 . 

I EDC ( 2 * 1*560 ) *0 . 

IEDC(3.U560)*0. 

IF  ( IND(l)  ,NE.  0 .AND,  ITER  .LE,  D 
lWRiTE  (6.6449)  I , IDES»NDBE( I) ,aRT( I) , ASDE< l> , DTE( ! ) ,i IRCE( J, I) . J*l 

1 .lO).TSEU),LODME<n» 

2 lESSE(I). 

3 (NREQE( j,J), jtl.lB), ( 1 RCEl ( j. I) , jii , 1C ) , TSE1 < I i , 

4 I WE ( I > ,( IECE(J,I ) 

6449  FORMAT(l4,8X.l2A6/l6,F5,2.F7,2,F5,2.8X.10F7,g, I3.F8.0.  17/ 

1101 3.2X, 1017, I2.F8. 0/10F6. 0) 

450  CONTINUE 

601  IF ( J TER.GT . 1 ) GO  TO  651 
NFP5*0 
NIP5-0 

REAd(5.TYPe> 

l F < IND(l) .NE.0  .AND, ITER.LE.1)  Hr J TE ( 6 , 9601 > 

9601  PORMAT(1H1/50X,15HEVENT  TYPE  DATA/18H  J IDENTIFIER, 

1 61X.26H  ADUR  ASD  CLASS  NIQR.8X ,8MIQR(i-6)  / 

2 /38H  I ESS  LOOM  KE  tNT  IH  NREQ 

3 ( 1-10  ).22X,9W1RC(  1-10  )/15X,9HIECa-10).36X,18HIRCl(  1-10  >) 

NTYPES=NI P5/6? 

MM  ■ 1 
KK  ■ 1 

DO  650  1*1,  NTYPES 
DO  605  J*1 , 12 
IDES ( J)«IP5(MH) 

60S  MM*MM*l 

IESS«IP5(MM) 

MM*MM*1 

ADUR  « FP5  (KK) 

ASD  * FP5  (KK  * 1) 

DO  610  Jsl.10 
NREO(J)  ■ l P5  (MM> 

610  MM  ■ MM  * 1 

LOOM  * IP5  (MM) 

KE  • IP5  ( MM  ♦ 1) 

I NT  = I P5  (MM  * 2) 

MM  ■ MM  ♦ 3 
DO  615  J«l,10 
IRC  (J)  * IP5  ( MM) 
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JRCKJ)  B IP5  (MM  ♦ 10) 

615  MM  m MM  ♦ 1 
IH=1P5(MM+10 ) 

MM*MM*H 

DO  620  Jsl*10 

J EC  (J)  ■ IP5  (MM) 

620  MM  ■ MM  ♦ 1 

M I OR  • IP5  ( MM) 

DO  625  J«l,6 
MM  « MM  * 1 
625  J OR ( J ) « IP5  (MM  ) 

l CLASS  « IP5  (MM  ♦ 1) 

WRjTg(l2* I ,EPR«9060)  4DURJ0 
I P ( l ND < 1 ) . NE , 0 .AND,  ITER . LE . 1 1 

1 WRITE (6. 9650  ) ! , ! DE3 , ADUR , ASD , I CL ASS , N I OR , ( I QR < J ) , J*1 , 6 ) , I ESS , 

1 LODM.KE, INT, IH,  <NREQ(J),J*1,10),  ( 1 RC ( J ) » Jvl , 10 ) , ( 1 EC ( J ) , J»1 , 10 
2),  ( I R Cl ( J ) • JS1 , 10  ) 

9650  rORMAT(/l4,3x,12A6j  2P7.3.I6  i 16 , 6 1 4/ 1 5 , F8 , 0 , 2 J4 , F4 . 0 , 10  1 3 , 

1 10P7.0/10F5,0,9X,10l7) 

<K  ■ KK  ♦ 2 

650  MM  ■ MM  ♦ 2 

651  RETURN 
ENTRY  DINPUT 

I F ( J TER , EQ . 1 ) GO  TO  500 
REaD(IO)  nD,N0S*; (DuMY(I ), Ib1.11) 

475  NFPj*NOSE«ll 
NIP3*N0SE*11 

READ (10)  (FP3( I ); I»lfNFP3) . (IP3( I >, I-1.NIP3I 
GO  TO  5q1 

500  nF P3  * 0 
NIP3  * 0 

READ  (5.8500)ND,NOSE, (DUMY( I ) , I * 1,11) 

8500  FORMAT  (213.11A6) 

READ  C5.SCHEVT) 

!F((nFP3,NE.M0SE*11),0R,1NIP3.NE, NOSE *11 ) ) GO  TO  9050 
JFtN.LE.l)  GO  TO  501 
WRITE  do)  ND,NOSEy ( DUMYl l ) ,1*1,11) 

WRITE (10)  ( FP3 ( I ) » J •! , NFP3 ) , ( I P3 ( 1 ) , I «1 * N I P3 ) 

501  <K  ■ 1 
MM  ■ 1 

DO  560  I « 1 # NOSE 
J ET VP ( 1 ) = IP3(KK) 

IPK(I)*!P3(KKU) 

TS{  l )»IP3(KK*2) 

TSlf  l )* IP3(KK*3) 

RTUl  l )«IP3(KK*4) 

I FO I C 1 )«IP3(KK*5) 

NIF(  I )sIP3(KK«6) 

JEFN( I )* JP3<KK*7  ) 

<K«KK*8 
TL(J  ) *FP3 ( MM ) 

ST  < I )«FP3(MM*1) 

MM«MM*2 

DO  510  J ■ 1,3 
NX ( J , I ) * I P3 ( KK ) 

PRB  I J * I ) lFP3  ( (iM  ) 
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mmsmm  ♦ i 
510  KK  » KK*1 

00  520  J»1.3 
IEpC ( J » I )=FP3(MM) 

EDCV ( J » I)«FP3CMM*3) 

520  MM  ■ MM  ♦ 1 
MM  « MM  ♦ 3 
560  CONTINUE 

lF(lND(l>  .EG?  0 .OR,  ITgR  , GT , 1)  QO  TO  4999 
WRJTE  (6,8501}ND,N0SE»(DUMY(l),I  l 1.11) 

8501  FORMAT  (1H1.90X.20HSCHEDULED  EVENT  DATA/ 

14H  ND*I3.5X,5HN0SE«I3,4X.11A6//83H  IE  IETYI  TS  T$1  IFOJ  NJF 

2 lEFN  NX(l-3)  PRB  ( 1-3 ) IPE  RTU  .5X.8HTL  ST/ 

DO  8600  I ■ 1/NOSE 

3 5X,9HIEDC<i-3).9HEDCV<1-3)) 

WRITE (6, 8560)  I . IETYPU ) , TSt J > , TSl (!) , JFOI ( II . NJF ( I ) , IEFN< I ) . 

1 (NXU.I).J=l,3),<PRB(J,I).J«1.3),IPE<n.RTUU),TL(n.STm, 

2 ( JBDC( J, I ) , J*l,3)r 
2 <EDCV(J.  I ),  J*l,3> 

8600  CONTINUE 

8560  F0RMAT<lH0/lH  . I Zl 1 8 , I 4 , I 5 . 3l 6* 3t 5 , 3F4 . 2 . 2 1 5 . IX , 2F6 . 2 , / 

1 1W  .4X.3I3.3F10  .3) 

4999  CONTINUE 

5000  IF  ( IERR.EQ.0)  RETURN 
STOP 

9010  IeRR  a 1 
WRITE  (6,9011) 

9011  FORMAT  (30H1ERROR  IN  FOLLOWING  iNPuy  L I St/25RPR0QRAM  WILL  NOy  CON* 
1INUE) 

WRITE  ( 6 , PAR AH ) 

GO  TO  200 
9020  lERR  * 1 

WRITE  (6,9011) 

WRITE  ( 6 , PERSNL > 

GO  TO  300 
9030  IERR  * 1 

WRITE  (6,9011) 

WRITE  (6.EQREVT) 

GO  TO  ^00 
9040  IERR  * 1 

WRITE  (6,9011) 

WRITE  (6.EMREVT) 

GO  TO  601 
9050  IERR  * 1 

WRJTE  (6,9oil) 

WR!TE(6,SCHEVT) 

GO  TO  5000 
9060  WRJTE(6,9012) 

9012  FORMAT ( 20H1D • A.  ERROR--QUJT  > 

return 

FND 
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